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Abstract 


Computer programming and data analysis efforts were carried 
out under this contract in support of the Earth Radiation Budget 
Experiment (ERBE) at NASA/Langley. In this final report there 
will be a brief description of ERBE followed by sections 
describing software development and data analysis for both pre- 
launch and post-launch instrument data. 
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SECTION 1 - INTRODUCTION 


Computer programming and analysis efforts were carried out 
in support of the Earth Radiation Budget Experiment (ERBE) . ERBE 
will be described in section 2 of this final report. Section 3 
will contain descriptions of the programs developed under this 
contract with the procedures needed to run them and sample 
printer and plotter output. Listings of some of the major 
programs will be included in the appendix. Data reduction and 
analysis efforts will be described in section 4. 
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SECTION 2 - ERBE 


The Earth Radiation Budget Experiment is a three satellite 
experiment designed to provide global measurement of radiation 
reflected and emitted by the earth. Each satellite (ERBS, NOAA-9 
and NOAA-IO) carried into orbit a pair of instruments consisting 
of a scanner and nonscanner. ERBS (Earth Radiation Budget 
Satellite) was launched from Space Shuttle mission 41-G on 
October 5, 1984. ERBS is at an altitude of 610 km and an orbital 
inclination of 57°. NOAA-9 and NOAA-IO were placed into polar 
orbit at 99° and altitude of 812 km by Atlas launch vehicles. 

The scanner instruments consist of three narrow field-of- 
view channels which scan the earth every 4 seconds. The short 
wave channel is designed to measure reflected solar energy 
whereas the long wave channel measures energy emitted in the 
infrared by the earth. The total channel measures both types of 
radiation and serves as a check on the other two channels . Data 
from the scanner instruments can be used to validate data 
acquired by the wide f ield-of-view nonscanner instruments through 
a process of integration. The scanner also provides a means of 
acquiring bi-directional data on reflected energy which can be 
useful in validating computer models of the process of energy 
reflection by the earth. Inflight calibration of the scanner is 
accomplished in two ways. Internal calibration utilizes the 
stimulus of the SWICS (Short Wave Internal Calibration Source) 
while solar calibration uses the sun's energy viewed through the 
MAM (Mirror Attenuator Mosaic). 
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The nonscanner instruments consist of four earth viewing 
channels and a solar monitor. Of the four channels, there are 
two medium field-of-view channels and two channels wide fields- 
of-view. Each set of two consists of a short wave and a total 
channel . Long wave determinations are made based on the 
difference between the total and short wave readings. The 
nonscanner instruments have inflight calibration capability which 
consists of a solar monitoring channel for solar calibration and 
a SWIGS (Short Wave Instrument Calibration Source) which is 
viewed by the four earth channels for internal calibration. 
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SECTION 3 - SOFTWARE DEVELOPMENT 


Software development under this contract was a continuation 
of efforts begun under a previous contract to support the ERBE 
project. Activities included both the writing of new programs on 
a variety of computer systems and the modification and updating 
of previously written software. Programs were developed to 
assist in the rapid data reduction of data acquired during 
satellite integration and during pre-launch check out at 
Vandenberg for NOAA-IO. "ERTAB" was developed on the HP-1000 
computer to generate a command echo tabulation which greatly 
assisted in finding data associated with special sequences and 
events such as: internal calibration, solar calibration, azimuth 

and elevation drive checks, heater checks and different scan 
modes (for the scanner instrument only). 

"TICDL" (TIROS Internal Calibration Delta) and " ICDLT" 
(Internal Calibration Delta for ERBS) were developed on the HP- 
1000 to calculate the delta between the space look and internal 
calibration position data for the scanner instruments during 
their 4 levels (0, 1, 2 & 3) of calibration using the SWICS 
(Short Wave Internal Calibration Source) . "BBPLT" was written to 
plot the calculated deltas involving scanner internal calibration 
data (see figure 1). 

To facilitate processing of post launch data, several 
programs were written on the CDC computers to convert satellite 
data tapes into a format which could be processed by software 
previously developed on the HP-1000 computers. "NOACNVT" and 
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"PCMCNVT" were programs written on the NOS CDC computers to 
convert TIROS and ERBS data tapes to HP-1000 "TRW" format. 

In addition to the tape conversion programs, other software 
was developed on NOS to process calibration data for scanner and 
nonscanner instruments on a regular basis. Considerable time was 
saved by submitting automatic batch jobs to process satellite 
data tapes as they arrived at NASA/Langley. 

Among the other NOS programs developed were: "SOLCA", 

"ESCAN", "TSCAN”, " SMCAL" and "ESMCAL" . 

"SOLCA" generates printouts and plots of nonscanner solar 
calibration data (see figure 2). 

"ESCAN" and "TSCAN" extracted data for ERBS and TIROS 
scanner instruments for subsequent plotting by "ESMCAL" and 
"SMCAL" respectively. 

A major software development task under this contract 
concerned the need to monitor the progress of the two sets of 
instruments on the NOAA-9 and NOAA-IO satellites on a real-time 
basis. Software was written to acquire, via dedicated telephone 
line, data from "SOCC" (Satellite Operations Control Center). 

The on-line real-time program ("SOCC") written in TURBO Pascal on 
the IBM-XT , was developed to display, limit check, and archive to 
disk all the ERBE data available during each pass of the NOAA 
satellite (see listing in appendix). Additional software 
("REPLAY") was developed to play back the acquired data for quick 
review. One of the options included in "REPLAY" is the 
capability to save to disk snapshots of the data displayed on the 
CRT. These snapshots are used to generate plots and tabulations 
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NOAA-9 NONSCANNER SOLAR CALIBRATION 



Figure 







of parameters of interest. A program called "SCANCHK" (scan- 
check) was also developed on the IBM-XT to tabulate scanner 
position data. This program has been very useful in diagnosing 
problems with both NOAA-9 and NOAA-IO scan position data. 
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SECTION 4 - DATA REDUCTION AND ANALYSIS 


Data reduction and analysis support under this contract 
consisted of NOAA-IO pre-launch test support and post-launch data 
analysis support for all three satellites: ERBS, NOAA-9 and 

NOAA-IO. 

During pre-launch testing of the ERBE instruments, support 
activities included data tape copying and reformatting and SEPET 
(Spacecraft Electronic Performance and Evaluation Test) data 
analysis. Data acquired from the NOAA-IO spacecraft was written 
to magnetic tape in "TIP" (TIROS Information Processor) format. 

In order to quickly determine the performance of the ERBE 
instruments, it was necessary to convert these data tapes to a 
format compatible with software previously developed on an HP- 
1000 computer. 

After reformatting, data from the SEPET tests was analyzed, 
plotted and tabulated. Internal calibration, solar calibration, 
azimuth and elevation drive checks were evaluated for both 
scanner and nonscanner instruments. For the scanner instrument, 
all five scan modes (nadir, short, normal, mam and stow) were 
examined. For the nonscanner, all three levels of the SWICS 
(Short Wave Internal Calibration Source) output were plotted. 
Command echoes for both instruments were tabulated to verify 
proper commanding and execution of the various test sequences. 

The SEPET test analysis activities were performed numerous times 
at the RCA facility in Hightstown, NJ (RCA was the prime NOAA-IO 
satellite contractor) and also at Vandenberg AFB in California. 
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Post launch analysis support was given for all three 
satellites carrying ERBE instruments (NOAA-9, NOAA-IO and ERBS) . 

Routine data reduction consisted of examining infernal 
calibration and solar calibration data for scanner and nonscanner 
instruments. When the scanner on ERBS began to have difficulty 
scanning (around May 1985), closer examination of the data was 
necessary. Scan position data and housekeeping data were 
tabulated for considerable periods of time in an effort to 
determine the cause and effects of the scanner problem. 

In carrying out the post launch data analysis, both the NOS 
facility at Langley and the HP-1000 computer were utilized. 
Software developed under this contract was used to convert data 
tapes in "LaRC" format to "TRW" format for processing on the HP- 
1000. This conversion facilitated the use of considerable 
engineering analysis software previously developed on the HP-1000 
(both by STX personnel and TRW personnel) under previous 
contracts. The more routine data analysis was carried out in 
production mode on the NOS CDC computers. 



APPENDIX A - SOCC 


Program SOCC inputs ERBE/TIROS data from the ADCCP BUFFER, 
processes and limit checks the data and displays it on a color 
monitor. The program checks the identity of the source of the 
data (which satellite) and saves NOAA-9 and NOAA-IO (ERBE) data 
in separate disk files for later review using the REPLAY program. 
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Listing of: SOCC.F'AS 
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1 


1 PBQ5.RQM SOCC; C DISPLAY PROGRAM FOR ERBE/NOAA-9 ?< NO A A- 10 ! 

r 

4 written by : William L.. Edmonds, STX Corporation 

5 December 1984 

7 modified : Summer 1986 for NOAA-IO capability. 

9 Program SOCC inputs ERBE/TIROS data from the ADCCP BUFFER, processes 

10 and limitchecks the data and displays it on a color monitor. The 

11 program checks the identity of the source of the data (which satellite) 

12 and saves NOAA-9 and NOAA-IO (ERBE) data in separate disk files 

13 for later review using the REPLAY program. > 


17 LABEL REEF' , stop , bottom; 

18 TYPE ABC = SIR INGE 80 3 ; 

19 TYPE BYTEBUFF = ARRAY CO. .80003 OF BYTE ; 

20 C used for display memory... see var FRAME below! 




24 

25 

26 

27 

28 
29 


TYPE integBUFF = ARRAY E 0. . 40003 OF INTEGER ; 

TYPE BITE = ARRAY CO. .803 OF BYTE ; 

TYPE Mi norFrameBuf f s = ArrayCO. . 1033 of byte ; 

Type dualbuffs = ArrayC0..43 of Mi norFrameBuf fs ; 
TYPE MinorFramewords = ArrayC0..513 OF INTEGER ; 

Type dual wordbuf f s = ArrayC0..43 of MinorFRamewords ; 
IYPE ERBREC = ARRAY CO.. 21 3 OF BYTE ; 

{ USED IN SAVING ERBE DATA TO DISK > 


31 IYPE REGPACK = RECORD 

32 ax , bx , cx , dx ,bp , di ,si , ds, es , f 1 ags: i nteger ; 

33 END; 

34 TYPE COMBUFF = ARRAYCO. . 5193 OF BYTE ; 

35 [BUFFER FOR ADCCP COMMUNICATIONS! 


37 type smallbufw = arrayCO. . 33 of integer ; 

38 IYPE COMBUFFW = ARRAYCO. . 2593 OF INTEGER ; [WORD BUFFER FOR ADCCP! 

39 CONSI 

40 hexdig: arrayCO. . 153 of char = '0i23456789abcdef * ; 

41 C used in dec to hex conversion 1 


43 ON ; SIRINGC33 = * ON ' ; [USED FOR DIGB DATA! 

44 OFF : STRINGC33 = 'OFF' ; -[USED FOR DIGB DATA! 

45 N0AA9 : SIRINGC103 = 'N0AA9.DAT ' ; 

46 N0AA10 ; SIRINGC103 = ' NO A A 1 0 . DAT ' ; 

47 WHITE: INTEGER = 15 ; C color display attribute values ! 

48 RED: INTEGER = 12 ; 

49 YELLOW : INTEGER = 14 ; 

50 GREEN : INTEGER = 10 ; 


Listing of: SOCC.PAS 
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52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 


m3y r C V 
xmtrcv 
max sec 
sync : 
bi sync 
noerr 
pt 1 err 
cserr 
timerr 
i dOmsg 
i d lmsg 
i dmsl n 


: byte = 2 
: byte = 7 
: integer = 

byte = #32 
: integer = 

integer = 

: integer = 

integer = 

: integer = 

: array CO. . 
: array CO. . 
: integer = 


; C ADCCP protocol : message received 3 

; C ADCCP protocol : command to send or receive 

10 ; -C ADCCP protocol: time out value 3 
; C ADCCP protocol : sync byte value 3 

$220 5 Z hex address of ADCCP bisync port 3 
0 ; C ADCCP code for no error 3 

1 ; Z ADCCP code for protocol error 3 

2 ; C ADCCP code for checksum error 3 

3 ; C ADCCP code for time out error 3 

33 of byte = ( $32 , $32 , 0 , $ 8 ) ; t idle message # 0 
33 of byte = ($32 , $32 , 0 , $c ) ; Z idle message # 1 

4 ; { idle message length in bytes 3 


VAR 

ESI PL : ABC ; Z SCANNER F’ULSE-LDAD BUS INDICATOR = A OR B 3 

ERBDAT : ERBREC ; -C THIS ARRAY HOLDS ERBE DATA TO BE SAVED TO DISK 3 

F9 : FILE OF ERBREC ; Z Disk file used to save ERBE/NOAA-9 data 3 

F 1 0 : FILE OF ERBREC ; C ERBE/NOAA- 1 0 DATA FILE 3 

key : integer ; C holds value of last key hit on keyboard 3 

state : byte ; C ADCCP protocol : communications state 3 

SC ID : BYTE ; ' 

■Z SCID SHOULD BE = HEX "D" or "E" for NOAA-9, 

"F" or "0" FOR N0AA-10 3 


74 0LDSCID : BYTE ; C USED TO CHECK FOR CHANGE IN SCID 3 

75 FORG : stringC23 ; Z NOAA- “ 9 or 10", (f or g) ie. "FORG" 3 

76 id : byte ; C ADCCP idle message id: either 0 or 1 3 

77 msgid : byte ; Z ADCCP protocol : message id 0 thru 3 3 

78 elpmin : byte ; C elapsed minutes calculated by INITRCV — ADCCP 3 

79 elpsec : byte ; C elapsed seconds calculated by INITRCV 3 


81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 


BYTE ; 
[ minor 


RECPACK : REGPACK ; 

ah , al , ch , cl , dh : byte 
TIME : ARRAY CO. .53 OF 
MN : INTEGER % 

status, count: integer ; 

1 i nenum, charnum: integer ; C 

MinorFrameNUM : integer ; 

Ma jorFrameNUM : integer ; 

Digb : byte; Z 

scrnmode: arrayCO. .153 of byte 
•C holds display parameters 


register pack used during interru 
•C register names high and low 
■Z holds major frame time 
frame # within buffer: 0 to 


used by DUMPSCRN 3 
ERBE mi nor frame #: 0 to 3 
ERBE major frame # 3 
DIGITAL "B" byte from NOAA 

m 

for CONOGRAPHICS 3 


pt processing 

■V 

J 

ZULU 3 
4 3 

19 3 

data stream 3 


93 SDIGA : ARRAY CO.. 7 3 OF INTEGER ; 

94 C scanner digital "A" data from 1 NOAA minor frame 3 

96 NDIGA: INTEGER ; C non-scanner digital "A" data for 1 minorframe 3 

97 ANALOG : byte ; C analog byte from 1 NOAA minor frame 3 

98 RANALOG : REAL' ; 

99 Z analog converted to real decimal or non-integer value 3 


101 


VALST 


ABC 




i-’"» rS 


Listing 


102 

103 

105 

106 

108 

109 

110 
1 1 1 
112 

113 

114 

115 

116 

117 

118 

1 19 

120 
121 
122 
123 


128 

129 

1 30 

131 

132 

1 33 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

146 


150 

151 

152 


of: SOCC.F'AS 
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LENG ; INTEGER ; 

•C length in bytes of ADCCP message received: full = 520 ) 

RCVBUF : COMBUFF ABSQLUJE $8F80: $0000 ; 

■C absolute addr of receive buffer > 

RCVBUFW : COMBUFFW ABSOLUTE $8FB0:$0004 ; 
msgbuf : small bufw absolute $8F80: $0000 ; 

XMTBUF : COMBUFF ABSOLUTE $8F80: $0400 ; 

MinorFrame : dual buffs absolute $7fS0 : $0004 ; -C 9800:0004 ; ) 

MinorFrameW : dual wordbuf f s absolute $7f80 : $0004 ; C 9800:0004 ; 
MINFW : COMBUFFW ABSOLUJE $7f80 : $0004 ; C 9800:0004 ; ) 

FRAME: integBUFF ABSOLUTE! $B800:$0000; 

BFRAME: BYTEBUFF ABSOLUTE $B800:$0000; 

txt : text ; 

txtfile : strJngC 101 ; 

SORC: ABC ; ~CTEXT STRING USED FOR CONOGRAPHICS DISPLAY) 

ATT, XY: INTEGER; I , K , J: INTEGER; 

SCRNINT : ARRAYCO. . 13 OF INTEGER ABSOLUJE $0000: $0014; 

STORINT : ARRAYCO.. 13 OF INTEGER ; 
statpr : byte absolute $0050: $0000; 

[INTERRUPT VECTOR LOCATION FOR PRINTING) 


•t scanner digital "a" variables ) 

JYPE COUNTS = INTEGER; 

VAR 

SSCH , SLCH , STCH : COUNTS ; -C CHANNEL OUTPUT ) 

SSWCSA , SSWCST : REAL ; -C SWICS AMP OUTPUT & TEMP ) 

SSDACV , SLDACV , STDACV : REAL ; -C DAC VOLTAGES ) 

SDPBV , SDNBV : REAL ; -C POS NEG DETECTOR BIAS VOLTAGES) 

STRV1 , STRV2 : REAL ; -t TEMP REF VOLTAGES) 

SSDETT , SLDETT , STDETT : REAL ; -C DETECTOR TEMPS) 

SLBBT,STBBT : REAL ; -[ BLACKBODY TEMPS ) 

SSMBT , STMBT : REAL ; -C MAM BAFFLE TEMPS ) 

SSMAMT , STMAMT : REAL ; { MAM TEMPS ) 

SCMDE , SST AT , SCF'OS : COUNTS ; C COMMAND ECHO, STATUS, SCAN POSITION) 
SAF’OSL , SAF'OSH: BYTE ; -C LOW ?< HIGH AZIMUTH POSITION BYTES ) 

SAZP : REAL ; -C AZIMUTH POSITION ) 

SAF'QS : COUNTS ; 

TREF : REAL ; -C TEMP REAL NUM 3 

■[ EXTERNALS ) 


PROCEDURE S5080 (var i :byte>; EXTERNAL 'CONO.COM'; 

•t S5080 PUTS THE CONOGRAPHICS SYSTEM IN THE DESIRED MODE: 

At program start, it puts the screen in 50 row, 80 column mode. 
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Listing o-f: SOCC.F'AS 
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153 At termination, it returns the screen to 25 X 80 . > 

155 PROCEDURE PUTOUT (VAR S0RC:ABC;VAR FRAME: INTEGER; ATTR: INTEGER) ; 

1 56 EXllRNAL ' PUTOUT . COM ' ; 

157 •£ PUTOUT places a string and its color- 

158 attributes in the screen memory area > 

160 FLJNCII ON PRSTAT: INTEGER; EXJERNAL 'PRSTAT.COM'; 

161 C PRSTAT responds to the shift-F’rtSC keys by setting a -flag. 

162 The program will then dump the screen to the printer 

163 50 rows by 80 columns } 

165 { PROCEDURES ?< FUNCTIONS > 

167 PROCEDURE OUTPUT (VAR SORCi ABC; VAR FRAME: INTEGER; ATTR: INTEGER); 

168 •£ OUTPUT WAS INTENDED TO SOLVE THE PROBLEM OF GARBAGE DIGITS LEFT ON 

169 THE CONOGRAPHICS SCREEN WHEN A LONG STRING OF NUMBERS WAS REPLACED 

170 BY A SHORT STRING. THIS PROBLEM WAS NEVER SOLVED DUE TO LACK OF 

171 TIME. THE IDEA WAS TO WRITE OUT BLANKS FIRST AND THEN PUT THE 

172 DESIRED NUMBER OUT WITH THE PUTOUT ROUTINE ABOVE > 

173 VAR BLANKS : ABC ; 

174 BEGIN 

175 •£ BLANKS := ' ' ; 10 BLANKS } 

176 C PUTOUT (BLANKS, FRAME, WHITE) ; > 

177 PUTOUT (SORC, FRAME, ATTR ) ; 

178 END; 


180 

function 

GETKEY : integer ; 

{GET VALUE OF KEY STRUCK. . . 

181 



IF NO KEY THEN ZERO IS RETURNED > 

182 

begin 



183 

wi th 

recpack do CSET 

UP FOR INTERRUPT 21 HEX WITH AH = 6 

184 


AND 

DX = FF HEX l- 

185 


begin 


186 


ah : = 6 ; 


187 


al := 0; 


188 


ax : = ah shl 

8 + al ; 

189 


dx := $ff ; 


190 


end; 


191 


intr ($21 , recpack) ; 

•C DO INTERRUPT 21 > 

192 


with recpack do 


193 


begin 


194 


al := ax arid 

$ff ; •£ GET VALUE OF CHARACTER J 

195 


egd ; 


196 


GETKEY := al ; £ 

IF NO KEY WAS HIT, ZERO WILL BE RETURNED! 

197 

egd ; 




203 


•function CHKTIM 
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boolean ; 


Listing of : SOCC.PAS 
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204 

205 

206 

207 

208 

209 

210 

211 

nn n 
i jL 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 



•t TIMING ROUTINE FOR ADCCP COMMUNICATIONS? 

BEGIN 

AH := *2C; t SET UP FOR INTERRUPT 21 HEX WITH AH = 2C HEX? 
WIIH RECPACK DO 

begin 

AX : = AH SHL 8 5 

END; 

I NTR ( $2 1 , RECPACK) ; 

Wild RECPACK DO C EXTRACT THE TIME ? 

begin 

DH := DX SHR 8 ; 

IF < dh < elpsec ) then 
begin 

CL != CX AND 255 ; 
cl s= cl -1 5 
dh := dh +60 ; 

end ; 

dh s — dh - elpsec ; 

If ( dh < max sec ) then 
begin 

if ( cl <> elpmin ) then chktim := true 
efse chktim := false ; 

egd 

else chktim := true ; 

END; 


>0 


END; 


23 . 


PROCEDURE SEND IDLE 5 

■C ADCCP ROUTINE TO SEND APPROPRIATE IDLE MESSAGE ? 


235 VAR I : INTEGER ; 

236 BEGIN 

237 CASE ID OF 

239 0: FOR I := 0 JO 3 DO 

240 XMTBUFC I 3 := IDOMSSC 1 1 ; 


242 

243 

244 

245 

246 

247 

248 

249 

250 

251 



Is FOR I := 0 IQ 3 DO 

XMTBUFC I 3 := ID1MSGC I 3 ; 
else i : - i ; 

END; -C OF CASE ? 

PORT C B I SYNC 3 : = XMTRCV ; 

AH := $2C; 

Wild RECPACK DO 

begin 

AX := AH SHL 8 ; 

END; 

I NTR ($21, RECPACK) ; 

WIIH RECPACK DO 

begin 
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255 

DH : - DX SHR 8 ; 



256 

CL : = CX AND 255 ; 



257 

ELPSEC i= DH ! 



258 

ELPMIN : = CL ; 



259 

END; 



260 

END; C OF SEND IDLE > 



262 

FUNCTION XYPOS (ROW, COL; INTEGER ) : INTEGER ; 



263 

•t CALCULATE LINEAR ARRAY POSITION 



264 

FOR CONOGRAPHICS DATA TO BE DISPLAYED 

AT 

ROW, COL 3- 

265 

BEGIN 



266 

XYPOS * — ROW * 80 + COL; 



267 

END; 



269 

PROCEDURE XFER; 



270 

C ADCCP COMMUNICATIONS ROUTINE TO TRANSFER 

DATA FROM THE 

271 

RECEIVE BUFFER TO AN ARRAY FOR PROCESSING > 


272 

VAR I : INTEGER y 



273 

BEGIN 



274 

LENG t — (msgBUFCU AND $3FF) ; 



275 

str ( 1 eng ; 5 , sore ) ; 



276 

put out (sore , -frame tie yp os (46 , 18) 1 , green ) ; 



277 

FOR I ;= 0 TO 519 DO 



278 

MINFWCII ;= RCVBUFWCI3 ; 



279 

END; C OF XFER > 



281 

PROCEDURE INITRCV ; C INITIATE COMMUNICATIONS WITH 

ADCCP BOX > 

282 

LABEL WAIT, MESSRCV,XIT ; 



284 

BEGIN 



285 

ID := 0 ; 



286 

WAIT; SEND IDLE ; 



287 

STATUS := PORT CB I SYNC 3 AND MSGRCV ; 



288 

IF STATUS <> 0 THEN GOTO MESSRCV ; 



289 

IF NOT (CHKTIM) THEN GOTO WAIT ; 



290 

STATUS := TIMERR ; 



291 

GQIQ X IT ; 



293 

MESSRCV: IF RCVBUFC03 <> 0 THEN 



294 

BEGIN 



295 

STATUS := CSERR ; 



296 

GQIQ X IT ; 



297 

END 



298 

ELSE 



299 

BEGIN 



300 

MSG ID ;= RCVBUFC33 AND 4 ; 



301 

IF MSG ID <> 0 THEN 



302 

BEGIN 



303 

STATUS := PTLERR ; 



304 

GQIQ X IT ; 



305 

END; 
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306 END; 

307 ID := 1; 

308 SEND IDLE ; 

309 STATE := 1; 

310 STATUS := NOERR ; 

312 X IT: END; 


315 PROCEDURE GETBUF; C GET A BUFFER OF DATA FROM ADCCP > 

316 LABEL G0TMS6, AGIN, DONE, gdmsOO,gdmsg ; 

317 BEGIN 

AGIN: STATUS := PORTCBISYNCI AND MSGRCV ; 

IF STATUS <> 0 IHEN GOTO GOTMSG ; 

IE (NQI(CHKTIM) ) IHEN GOTO AGIN ; 

SEND IDLE; 

STATUS :■ TIMERR; 

GOTO DONE; 

GOTMSG: IF (RCVBUFE03 <> 0 ) IHEN 
BEGIN 

SENDIDLE; 

STATUS := CSERR; 

GOTO DONE ; 

END; 

MSG ID := (RCVBUFC33 AND 4) SHR 2 ; 

IF (MSG ID = STATE) IHEN goto gdmsg ; 

If ( state = 1 ) then goto gdmsOO ; 

begin 

SENDIDLE ; 

STATUS := PTLERR; 

GOTO DONE; 

END; 

gdmsg: STATE := (NQI (STATE) AND 1) ; 

ID :- STATE ; 
gdmsOO: XFER; 

SENDIDLE; 

STATUS := NOERR; 

345 DONE: END; 

347 EUNQIION ONOFF ( D I GB , I : BYTE ) : ABC ; C USED IN DISPLAY OF DIGS DATA > 

348 BEGIN 

349 ONOFF : = ON ; 

350 IF ( (DIGB AND I ) >0 ) IHEN ONOFF : = OFF ; 

351 END; 


355 BCOcedure NEWSCREEN ; C SET UP CONOGRAPHICS FOR 80 COL BY 50 ROWS > 

356 BEGIN 
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Listing o-f : SOCC.PAS 


357 

SCRNM0DEC03 


*71 ; 



358 

SCRNMODEC 1 3 


= *50; 



359 

SCRNMODEC 23 


*5A; 



360 

5CRNMODEC33 


= * 0 F ; 



361 

SCRNMODEC 4 3 


*1B; 



362 

SCRNMODEC 5 3 


= 6 ; 



6% *~* 

SCRNMODEC 63 


*19; 



364 

SCRNMODEC 73 


= *1 A; 



365 

SCRNMODEC83 


zz • 



366 

SCRNMODEC 9 3 


= 7; 



367 

SCRNMODEC 103 


= *20 ; 



368 

SCRNMODEC 1 1 3 


= *20 ; 



369 

SCRNMODEC 123 


= 0 ; 



370 

SCRNMODEC 133 


= 0 ; 



371 

SCRNMODEC 143 


1! 

O 



372 

SCRNMODEC 153 


SS O * 

~ 9 



373 

S5080 ( SCRNMODE C03) ; C CALL ROUT I NE 

TO 

SEND DATA TO CONOGRAPHICS 

375 

END 5 





377 

PROCEDURE OLDSCREEN ; C RESTORES SCREEN 

TO 

NORMAL MODE > 

378 

VAR LOC : INTEGER 

m 

4 



379 

BEGIN 





380 

FOR LOC := C 

) 

TO 3999 DO 



381 

FRAME C LOC 3 : 

= 

*F00 ; 



383 

SCRNMODEC43 


= *1F ; 



384 

SCRNMODEC73 


= *1C ; 



385 

SCRNMODEC 8 3 


= 2 ; 



386 

SCRNMODEC 103 

s= 6 ; 



387 

SCRNMODEC 113 

:= 7; 



388 

S5080 ( SCRNMODE C 0 3 > ; 



389 

END; 






392 

393 

PROCEDURE LIMITCHECK ( X , RL , YL , YH , RH: REAL; VAR SORC:ABC;VAR ATT: INTEGER 
•C LIMITCHECK DETERMINES WHAT COLOR TO DISPLAY A PARAMETER IN AND 

394 

APPENDS TO THE STRING "SORC" THE 

APPROPRIATE SUFFIX RL , YL , YH , RH 

395 

DEPENDING ON THE RED LOW, YELLOW 

LOW ETC SITUATION} 

397 

BEGIN 


398 

ATT := GREEN ; 


399 

IF X < YL THEN 


400 

BEGIN 


401 

IF X < RL THEN 


402 

BEGIN 


403 

ATT := RED ; 


404 

SORC := SORC + 'RL* ; 


405 

end 


406 

else 


407 

BEGIN 
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408 

409 

410 

41 1 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 


ATT : — YELLOW ; 

SORC : = SORC + 'YL' ; 

end; 

end 

else 

begin 

IF X > YH THEN 
BEGIN 

IF X > RH IHEN 

begin 

ATT := RED ; 

SORC := SORC + 'RH' ; 

END 

ELSE 

begin 

ATT : = YELLOW ; 

SORC := SORC + 'YH' ; 

END; 

END 

ELSE SORC != SORC + ' '; 

END; 

END; COF LIMITCHECK > 


432 PROCEDURE DisplayTime; 

433 •[ DISPLAY THE TIME VALUE EXTRACTED FROM THE INCOMING DATA 3 

435 VAR TIMSTRING : ABC ; 

436 DAYS, HRS, MI NS ; INTEGER; mi 1 1 i secs , SECS : REAL ; 

437 BEGIN 

438 days : = (timeCODshl. 1) +( (timet 13 and 128) shr 7) ; 

439 millisecs := <(( timeClIand 7) *256.0 + ti meC23 ) *256. 0 + timeC33) 

440 *256.0 +timet43; 

441 hrs ; = trunc (mi 1 1 i secs/3600000. 0) ; 

442 mins := trunc (mi 1 1 i secs/60000. 0) mod 60 ; 

443 secs : = trunc ( (mi 1 1 i secs/1000. 0) -mi ns*60. 0-hrs*3600. 0) ; 

444 str (days; 4 ,sorc ) ; put out (sore , -frame Cxypos (42,40) 3 , whi te) ; 

445 str (hrs; 2 , sore ) ; put out (sore , frame Cxypos (42,45) 3 , whi te) ; 

446 str (mi ns; 2 , sore ) ; put out (sore , f rame Cxypos (42,50) 3 , whi te) ; 

447 str (secs: 6; 3 , sore ) ; putout (sore , f rameCxypos (42 ,55) 3 , white); 

448 END; 


451 PROCEDURE DISPLAYACRO ; 

452 C DISPLAY THE TEMPLATE OF ACRONYMS ON THE CDNOGRAPHICS SCREEN 3- 

454 VAR I: INTEGER; 

455 BEGIN 

456 txtfile ;= 'sorc.txt' ; 

457 assi gn ( tx t , tx tf i 1 e) ; 

458 reset (txt); 


A-10 


Listing of: SOCC.PAS 


Page 


1 


459 

att s = 15 ; 


460 

i : = 80 ; 


461 

wb.lL® not eof(txt) do 


462 

beg in 


463 

read In (txt , sore) ; 


464 

sore : = sore + ' 

5 

465 

putout (sore , -f ramet i 3 , att ) ; 


466 

i := i + 80 | 


467 

end ; 


468 

cl Dse (txt ) ; 


470 

END; 



473 

PROCEDURE D I VY ( N : I NTEGER ) ; 



474 

-C EXTRACTS USABLE DATA FROM TIP MINOR FRAME N> 



476 

LABEL RETURN ; 



477 

var nextmf , tipstatus: integer ; nmf,mf: strinqC43 ; 



478 

BEGIN 



479 

•C CALCULATE EXPECTED MINOR FRAME NUMBER AND CHECK 

THE 

ACTUAL 

480 

MINOR FRAME NUMBER RECEIVED. IF NOT EQUAL, DISPLAY DIAGNOSTIC 

481 

MESSAGE > 



482 

nextmf s = mi norf ramenum +1 ; 



483 

if (nextmf > 319 ) then nextmf 5=0 ; 



484 

M I NORFRAMENUM := M I NORFR AME E N , 5 3 + (MINORFRAMECN 

,43 AND Dshl 1 

485 

i± (mi norf ramenum< >nextmf ) then 



486 

begin 



487 

str (nextmf : 4 ,nmf ) ; 



488 

str (mi norf ramenum: 4 , mf ) ; 



489 

sore s= 'expecting m*f ' + nm-f + ' but -found 

m-f ' 

+ mf ; 

490 

putout (sore ,-f rameCxypos (45, 2) 3 , yel 1 ow) ; 



491 

end ; 



492 

•C CHECK SPACE CRAFT ID TO DETERMINE NOAA-9 , NOAA- 

10 OR 

OTHER 

493 

NO A A SATELLITE. WE ARE INTERESTED ONLY IN NOAA 

-9 

10 > 

494 

SCID := MINORFRAMECN, 23 AND 15 ; 



495 

IF ( ( SC I D < > TOD ) AND ( SC I D< >T OF ) AND ( SC I D< >T00 ) 



496 

AND ( SC I D< >T0E ) ) IHEN GDIQ RETURN ; 



497 

r 

i 



498 

IF SATELLITE ID IS NEITHER NOAA— F NOR NOAA-G 



499 

> 



500 

•C NOAA-9 CAN HAVE EITHER A HEX 'OD' OR 'OE' ID > 



501 

•C NOAA- 10 CAN HAVE EITHER A HEX 'OF' OR '00' ID 

> 


502 

IF (( SCID = TOD) OR (SCID = TOE)) IHEN FORG := ' 

9 ' 


503 

ILSE 



504 

FORG := '10' ; 



505 

•C IF THE ID HAS CHANGED SINCE THE LAST FRAME OF DATA, 


506 

CLEAR THE SCREEN AND START WITH A NEW TEMPLATE > 



507 

IF (SCID <> OLDSCID ) IHEN DISPLAYACRO ; 



508 

OLDSCID := SCID ; 



509 

sore := -forg ; 




A— 11 


Listing of : SOCC.PAS 


Page 1 1 


510 

51 1 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 


put out (sore , f rameCxypos ( 18 , 40) 3 , green ) ; 
if (mi norf ramenum = 0 ) then 
begin 

sore : = ' ' ; 

put out (sore , f rameCxypos (45,2) 3 ,yel low); 

FOR I s= 0 IQ 4 DO 

TIMECI3 := MINORFRAMECN, 1+83 ; 

disp laytime; 

END; 

TIPSTATUS := (MINORFRAMECN, 3 3 AND 96) SHR 5 ; 

ATT 5= RED ; C DEFAULT ATTRIBUTE COLOR, ONLY ORBIT MODE IS GREEN > , 

CASE TIPSTATUS OF ! 


523 

524 

525 

526 

527 

528 

529 

530 

531 

532 


536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 


0 : 


1 : 
o . 


EJtUJLiM 


SORC 

ATT 


:= 'ORBIT MODE 
= GREEN ; 


-r . 

•J » 

else 


END; 
SORC 
SORC 
SORC 
sore s 
END; 


' DUMP MODE 
' DWELL MODE 
'UNDEFINED MODE' 
'undefined mode' 


END; 

PUTOUT ( SORC , FRAME C X YPOS (41,2)3, ATT ) ; 
IF ( M I NORFRAMENUM > 319 ) THEN GQIQ RETURN 


UMunrnni i jl / / JLUJbLj 

DIGB := MINORFRAMECN, 123; 
ANALOG := MINORFRAMECN, 133 ; 

= (MINORFRAMECN, 52 3 shl 


NDIGA 
SDIGAC03 
SDIGAC 1 3 
SDIGAC23 
SDIGAC33 
SDIGAC 43 
SDIGAC53 
SDIGAC 63 
SDIGAC73 
ERBDAT ARRAY 
NOAA 'TIP 
THE ADCCP 
EACH IS SAVED 
ERBDAT C03 
ERBDAT C 1 3 
ERBDATC23 
ERBDAT C 33 
ERBDATC43 
ERBDATC53 
ERBDATC63 
ERBDATC73 
ERBDATC83 
ERBDATC93 
ERBDAT C 103 
ERBDAT C 113 


8) or mi norf rameCn ,533 ; 

minorf rameCn , 193 >SHR 4 


ri i. iNunr r\nne j smi o j yr_ in. 

= (MINORFRAMECN, 183 shl 8 or ...j, i i ur t r cinitr l i i ; 1/ j / ~r * 
=(( (MINORFRAMECN, 193 AND 15) SHL 8) OR MINORFRAMECN , 283 ) 
= (MINORFRAMECN, 293 SHL 4) OR ( MINORFRAMECN, 443 SHR 4) 

= ( (MINORFRAMECN, 443 and 15) shl 8 or mi norf rameCn , 453 ' 

= (MINORFRAMECN, 603 shf 8 or mi norf rameCn , 61 3 )SHR 4; 

=(( (MINORFRAMECN, 61 3 AND 15 ) SHL 8) OR MINORFRAMECN , 72 
= (MINORFRAMECN, 733 SHL 4) OR ( M I NORFRAME C N , 86 3 SHR " ‘ 
=(( MINORFRAMECN, 863 and 15) shl 8 or mi norf rameCn , 


I X iNUrvr KHrlt L N , / •_• j hj utj m 

MINORFRAMECN, 863 and 15) shl 8 
trn in oawc xutr cam VALUES OF THE ERBE 


(MINORFRAMECN 
= ( ( 

. IS USED TO SAVE THE RAW 
DATA STREAM. OUT OF EACH 5 
BOX, 5 MINOR FRAMES OF DATA 
TO DISK > 

= (MINORFRAMECN, 43 
= MINORFRAMECN, 5 3 ; 

= MINORFRAMECN, 83; 

= MINORFRAMECN, 93; 

= MINORFRAMECN, 103 
= MINORFRAMECN, 11 3 
= MINORFRAMECN, 123 
= MINORFRAMECN, 133 
= MINORFRAMECN, 183 
= MINORFRAMECN, 193 
:= MINORFRAMECN, 28 3 
:= MINORFRAMECN, 293 


4 ) 

minorf rameCn ,873 ) 
VHLUts ui- me. C.RBE DATA FROM THE 
20 BYTE BUFFER RECEIVED FROM 
WITH 22 BYTES OF USEFUL INFO 


AND 1) OR (SCID SHL 1) 
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561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 


581 

582 

584 

585 

587 

588 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

602 

603 

604 

606 

607 

608 
609 

61 1 


ERBDATC 123 
ERBDATC 133 
ERBDATC 143 
ERBDATC 153 
ERBDATC 163 
ERBDATC 173 
ERBDATC 183 
ERBDATC 193 
ERBDATC 20 3 
ERBDATC21 3 
IF (FORB = '9') 

ELSE WRITE <F10,ERBDAT) 
ssch s= sdigaCOl 
slch := sdigaC13 
stch := sdigaC23 
scpos : = sdigaC33 
RETURN: 

END; i OF DIVY > 


M I NQRFR AME C N , 44 3 ; 

M I NORFRAME C N , 45 3 ; 
M I NORFR AME C N , 52 3 ; 

M I NORFRAME CN, 53 3 ; 

M I NORFR AME CN, 60 3 ; 

M I NORFRAME C N , 6 1 3 ; 

M I NORFRAME CN, 723 ; 

M I NORFR AME CN, 73 3 ; 

M I NORFR AME CN, 86 3 ; 

M I NORFRAME CN, 87 3 ; 
IHEN WRITE <F9,ERBDAT) 
; 


PROCEDURE PROCESSD I BB ; 

•C PROCESS DIGITAL 'B' DATA FOR SCANNER S< NONSCANNER]- 


BEGIN 

CASE MI NORFR AMENUM MOD 32 OF 

0: BEGIN •£ SCAN MOTOR POWER 0N=0, 0FF=1 3- 

•£ EXCEPT NOT AVAIL IN MI NORFRAME 0 > 

IF M I NORFRAMENUM >0 IHEN 

begin 

SORC := ONOFF ( D I BB ,16) ; 

PUTOUT ( SORC , FRAME C X YPOS (11,14)3, BREEN ) ; 

END; 

END; 

3: BEGIN £ SCANNER PULSE LOAD BUS A 3- 

SORC := ONOFF ( D I BB , 64 ) ; 

IF (SORC = ON ) IHEN ESIPL := ' A' ELSE IF (ESIPL = ' A') 

IHEN ESIPL := OFF ; 

PUTOUT ( ES I PL , FRAME C X YPOS (12,54)3, BREEN ) ; 

C SCANNER BLACKBODY HEATER POWER > 

SORC := ONOFF (DIGB, 32) ; 

PUTOUT ( SORC , FRAME C X YPOS (15,54)3, GREEN ) ; 

•£ NON- SCANNER BLACKBODY HEATER POWER ]• 

SORC := ONOFF (DIGB, 16) ; 

PUTOUT < SORC, FRAME CX^ YPOS (33, 12) 3 , GREEN) ; 

END; 

4: BEGIN C NON-SCANNER AZIMUTH MOTOR POWER > 
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612 

613 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

642 

643 

644 

646 

647 

648 

650 

651 

652 

653 

654 

656 

657 

658 

659 

660 
661 
662 


SORC := ONOFF ( D I 6B , 1 28 ) ; 

PUTOUT (SORC, FRAME CXYPOS (33,34) 3 , GREEN) ; 

£ NON-SCANNER SPARE WOULD GO HERE ALSO > 

END; 

8s BEGIN •£ SCANNER PED STANDBY HEATER } 

SORC := ONOFF (DIGB, 16) ; 

PUTOUT ( SORC , FRAME C X YPOS (14,54)3, GREEN ) ; 

END; 

10: BEGIN •£ NON-SCANNER INSTRUMENT HEATER F'WR 3 

SORC ;= ONOFF (DIGB, 64) ; 

PUTOUT ( SORC , FRAME C X YPOS (34,12)3, GREEN ) ; 

end; 

11; BEGIN -£ NON-SCANNER ELEVATION MOTOR POWER > 

SORC := ONOFF (DIGB, 128) ; 

PUTOUT (SORC, FRAMECXYPOS <31 ,34) 3 , GREEN) ; 

END; 

13: BEGIN £ SCANNER PULSE LOAD BUS B } 

SORC := ONOFF (DIGB, 64) ; 

IF (SORC = ON ) 

THEN ESIPL := * B' 

ELSE IF (ESIPL = ' B' ) 

THEN 

ESIPL ; = OFF * 

PUTOUT (ESIPL, FRAME C X YPOS (12,54)3, GREEN ) ; 

END; 

17: BEGIN •£ SCANNER INSTR POWER } 

SORC := ONOFF (DIGB, 128) ; 

PUTOUT ( SORC, FRAME EX YPOS ( 10,54) 3, GREEN) ; 

■£ SCANNER STANDBY HEATER POWER} 

SORC := ONOFF (DIGB, 64) ; 

PUTOUT (SORC, FRAME CXYPOS (16, 54) 3 , GREEN) ; 

■£ SCANNER AZIMUTH MOTOR POWER} 

SORC := ONOFF (DIGB, 32) ; 

PUTOUT (SORC, FRAME CXYPOS (13, 34) 3, GREEN) ; 

•£ SCANNER SPARE WOULD ALSO GO HERE 3- 
END; 

18: BEGIN •£ NON-SCANNER INSTRUMENT POWER} 

SORC := ONOFF (DIGB, 128) ; 

PUTOUT (SORC, FRAME CXYPOS (32,54) 3, GREEN) ; 

•£ NON-SCANNER PULSE LOAD BUS A OR B3- 
SORC := ONOFF (DIGB, 64) ; 

IF( SORC = ' ON' ) IHEN SORC : = ' A ' ; 

IF (ONOFF (DIGB, 32) = ' ON ' ) IHEN SORC : = ' B ' ; 

PUTOUT (SORC , FRAME C X YPOS ( 34 , 54 ) 3 , GREEN ) ; 

[NON-SCANNER HEAD STANDBY HEATER 3- 
SORC := ONOFF (DIGB, 16) ; 
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663 PUTOUT < SORC, FRAME lXYPOS <32, 12) 1 , GREEN) ; 

664 END; 

665 19: BEGIN C NON-SCANNER PED. STANDBY HEATER} 

666 SORC := ONOFF (DIGB, 128) ; 

667 PUTOUT < SORC , FRAME C X YPOS <31,12)3, GREEN ) 5 

668 END; 

669 else i : = i ; 

670 END; C OF CASE } 


673 END; 

675 i THE FOLLOWING FUNCTIONS ARE USED TO EVALUATE ANALOG 

676 DATA FOR BOTH SCANNER AND NON-SCANNER } 


679 FLJNCI I ON EQU2 < COUNTS: INTEGER): REAL ; 

680 BEGIN 

681 EQU2 := CDUNTS/409.5 ; 

682 END; 

684 FLJNQII ON EQU3 < COUNTS : I NTEGER ) : REAL 5 

685 BEGIN 

686 EQU3 := -10. +2. *C0UNTS/409. 5 ; 

688 END; 

690 FLJNCI I ON EQU4 < COUNTS : I NTEGER ) : RE AL ; 

691 BEGIN 

692 EQU4 := -187.97 + 37. 59*C0UNTS/409. 5 ; 
694 END; 

696 FUNQI I ON EQU5 < COUNTS : I NTEGER ) : REAL ; 

697 BEGIN 

698 EQU5 := -2. 271*C0UNTS/409. 5 ; 

700 END 5 

702 FLJNCIION EQU 6 < COUNTS: INTEGER) : REAL ; 

703 BEGIN 

704 EQU 6 := -0. B643*COUNTS/409. 5 ; 

706 END; 

708 FUNQII ON EQU7 ( COUNTS : I NTEGER ) : RE AL ; 

709 BEGIN 

710 EQU7 := 36. +0. 4*C0UNTS/409 . 5 ; 

712 END; 
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714 FUNCTION EDUB <Ns REAL) : REAL; 

715 BEGIN 

716 EQUB := ( ( < (-B. 22227099E-1 9*N+ 1 . 04124505E-14) *N-2. 62438 14E-1 1 ) *N 

717 +5 . 0430832 1 E-07 > *N+ 1.441141 50E-02 ) *N- 1.21 752498E+0 1 ; 

719 END; 

72 1 FUNCTION EQU9 (1:1 NTEGER > : REAL ; 

722 VAR N: REAL; 

723 BEGIN 

724 N := 1/409.5 ; 

725 EQU9 i= (<(( 0. 04597458*N-0. 47 1 5868 )*N+1. 60582 1)*N- 1.383922) 

726 *N+5. 322107) *N-20. 0091; 

728 END; 


73 1 FUNCTION EQU 1 1 EM ( 1 1 I NTEGER ) : REAL ; 

732 BEGIN 

733 EQU HEN s- ( ( ( (-7. 8497064E-19*I+1 . 8092907E-14) *1-1 . 9129152E-10) 

734 *1 +1. 1525779E-06) *1—9. 5425896E— 03) *1+5. 193631 1E+01; 

736 END; 


738 FUNCTION EQU 1 1 FM ( I : I NTEGER ) : RE AL ; 

739 BEGIN 

740 EQU11FN := < < ( (-1 . 0779512E-17*I+2. 0178628E-13) *1-1 . 5103391E-09) 

741 * I +5 . 8237093E-06 ) *1-2. 1 02346BE-02 ) * I +6 . 5527696E+0 1 ; 

743 END; 

745 FUNCTION EQU 1 2EN (1:1 NTEGER ) : REAL ; 

746 BEGIN 

747 EQU12EN := < ( ( (-4. 9463396E-23*I+1 . 0318828E-17) *1+8. 2795369E-13) 

748 *1 +9. 2748 180E-08) *1+1. 05 14898E-02) *1+2. 0765383; 

750 END; 

752 EUNQI I ON EQU 12FN (1:1 NTEGER ) : REAL ; 

753 BEGIN 

754 EQU12FN := ( ( ( <9. 5360132E-20*I-1 . 9623981E-15) *1 + 1 . 4936774E-1 1 ) 

755 *1 +7 . 6635353E-08 ) * I + 1 . 130 1863E-02) *1-3. 3441 127E+01 ; 

757 END; 

759 FUNCTION EQU 13(1:1 NTEGER ) : REAL ; 

760 BEGIN 

761 EQU 1 3 := 1/819.1 ; 

763 END; 
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765 

766 

767 

768 

770 

772 

773 

774 

775 

777 

779 

780 

781 

782 

783 

784 

785 

787 

788 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
81 1 
812 

813 

814 

815 


FUNCTION EQUl 4 (N: REAL) : REAL; 

BEGIN 

EQUl 4 : = ( ( ( ( -3. 7944378*N+45. 022096 > *N-2 11. 33864 )*N+489. 0738) 
*N -583 . 00496 ) *N+347 . 835 1 1 ; 


end; 

FUNCTION EQU 1 5 ( N : RE AL ) : REAL ; 

BEGIN 

EQU 15 : = ( ( < ( -2. 33822 1 8*N+23. 54509 1 )*N-90. 571 380 )*N+ 168. 50204) 
*N -172. 73195) *N+90. 962177; 


END; 

PROCEDURE Process An a log ; 

•C PROCESS ANALOG DATA FOR BOTH SCANNER AND NONSCANNER > 

BEGIN 

CASE MINORFRAMENUM MOD 160 OF 

£ OVERALL PATTERN OCCURS TWICE EACH MAJOR FRAME > 

C EACH MAJOR FRAME HAS 320 MINOR FRAMES NUMBERED 
0 TO 319 :■ 

125. . 159: begin t do nothing > 
end ; 

4: BEGIN C SCANNER CHAN 0 ELECTRIC SLICE 2 TEMP NOT AVAILABLE } 

END; 

5: BEGIN -C NON-SCANNER CHAN 0 ELECTRIC SLICE 2 TEMP > 

R ANALOG := EQU 15 (ANALOG/51 . O) ; 

STR (RANALOG: 5: 3,S0RC) ; 

L I M I TCHECK ( RANALOG ,-10.0,0.0, 40. 0,50.0, SORC , ATT ) ; 

OUTPUT (SORC, FRAME CXYPOS (37, 71) 3 ,att) ; 

END; 

13: BEGIN C NON-SCANNER CHAN 1 ELECTRIC SLICE 3 TEMP > 

RANALOG := EQU15 (ANALOG/51 . O) ; 

STR ( RANALOG : 5 : 3 , SORC ) ; 

L I M I TCHECK ( RANALOG , - 1 0 . , 0 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

OUTPUT (SORC, FRAME CXYPOS (34,71) 3 , GREEN) ; 

END; 

27: BEGIN C SCANNER CHAN 3 POWER CONVERTER TEMP > 

RANALOG := EQU14 (ANALOG/51 . O) ; 

STR ( RANALOG : 5 : 3 , SORC ) ; 

L I M I TCHECK ( RANALOG ,-10. 0 ,0.0,45. O , 50 . 0 , SORC , ATT ) ; 

OUTPUT (SORC , FRAMEC XYPOS (9,71) 3 , ATT) ; 

END; 

28: BEGIN C NON-SCANNER CHAN 3 POWER CONVERTER TEMP > 

RANALOG := EQUl 4 (ANALOG/51 . 0) ; 

STR (RANALOG: 5: 3, SORC) ; 

L I M I TCHECK ( RANALOG ,-10. 0 , 0 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

OUTPUT (SORC, FRAME CXYPOS (33, 71) 3 , ATT) ; 

END; 
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816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 


839 

840 

841 


844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 


35: BEGIN -[SCANNER CHAN 4 BOX BEAM TEMP > 

RANALOG := EQU1 4 (ANALOG/51 . 0) ! 

SIR ( RANALOG : 5 : 3 , SORC ) ; 

L I M I TCHECK ( RANALOG , 0 .0,1 0 . 0 , 34 . 0 , 36 . 0 , SORC , ATT ) ; 
OUTPUT ( SORC , FRAME E X YPOS (7,71) 3, ATT) ; 

ENDS 

43: BEGIN -C SCANNER CHAN 5 +5 VOLT MONITOR > 

RANALOG : = 2. 0*ANAL0G/51 . 0 ; 

STR ( RANALOG : 5 : 3 , SORC ) 5 

L I M I TCHECK < RANALOG ,3.5, 4.0, 6.0, 6.5, SORC , ATT ) ; 
OUTPUT (SORC, FRAMECX YPOS <2, 71) 3, ATT ) 5 

END? 

45s iliiN { NON-SCANNER CHAN 5 +5 VOLT MONITOR > 

RANALOG := 2. 0*ANAL0G/51 . 0 s 
STR < RANALOG : 5 s 3 , SORC ) s 

L I M I TCHECK ( RANALOG ,3. 5,4. 0,6. 0,6. 5, SORC , ATT ) ; 
OUTPUT (SORC, FRAMECX YPOS (39, 12) 3 , ATT) ; 

END; 

51s BEGIN -C SCANNER CHAN 6 -15 VOLT MONITOR > 

RANALOG := -6. 0*ANAL0G/51 . 0 ; 

STR ( RANALOG : 5 : 3 , SORC ) ; 


•C NEW LIMITS PUT IN 9/29/86... APPLIES TO BOTH N0AA9 10 > 
LIMITCHECK (RANALOG, -16. 5, -16. 0,-13. 5, -13.0, SORC, ATT) ; 

•[ *********** } 


OUTPUT ( SORC , FRAME C X YPOS ( 5 , 71)3, ATT ) ; 

END? 

53: BEGIN C NON-SCANNER CHAN 6 -15 VOLT MONITOR >5 

RANALOG := -6. 0*ANAL0G/51 . 0 ; 

STR ( RANALOG : 5 : 3 , SORC ) ; 

LIMITCHECK (RANALOG, -16. 5, -16. 0,-1 4. 0,-1 3. 5, SORC, ATT) ; 
OUTPUT (SORC, FRAME C XYPOS (39,71) 3 , ATT) ; 

END; 

59: BEGIN C SCANNER CHAN 7 +15 VOLT MONITOR > ; 

RANALOG := 6. 0*ANAL0G/51 . 0 5 
STR ( RANALOG : 5 : 3 , SORC ) ; 

LIMITCHECK (RANALOG, 13.5,14.0, 16. O, 16. 5, SORC , ATT ) 5 
OUTPUT (SORC, FRAME C XYPOS (4, 71) 3 , ATT) ; 

END; 

60: BEGIN C NON-SCANNER CHAN 7 +15 VOLT MONITOR* 

RANALOG := 6. 0*ANAL0G/51 . 0; 

STR ( RANALOG : 5 : 3 , SORC ) ; 

LIMITCHECK (RANALOG, 13.5,14.0, 1 6. O , 16 . 5 , SORC , ATT) ; 
OUTPUT (SORC, FRAMECX YPOS (39, 52) 3, ATT) ; 

END; 

67: BEGIN -C SCANNER CHAN 8 +10 VOLT MONITOR * 

RANALOG := 4 . 0*ANAL0G/5 1 . 0 ; 

STR (RANALOG: 5: 3, SORC) ; 
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867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

91 1 

912 

913 

914 

915 

916 

917 


L I MI TCHECK (RANALOG ,8.5,9.0,11.0,11.5, SORC , ATT ) ; 

OUTPUT ( S0RC,FR AMEC XYP0S( 3, 71) 3, ATT) ; 

end; 

68: BEGIN C NON-SCANNER CHAN 8 +10 VOLT MONITOR} 

RANALOG := 4. 0*ANAL0G/51 . 0 s 
STR < RANALOG : 5 : 3 , SORC ) ; 

L I M I TCHECK ( RANALOG ,8.5,9.0,11.0,11.5, SORC , ATT ) ; 

OUTPUT (SORC, FRAMECX YPOS (39, 32) 3 , ATT) ; 

99: BEGIN l SCANNER CHAN 12 SPACE CRAFT ADAPTER TEMP} 

RANALOG := EQU15 < ANALOG/51 . 0) ; 

STR (RANALOG : 5 : 3 , SORC ) ; 

LIMJTCHECK (RANALOG, -10. 0,0. 0,30. 0,40.0, SORC, ATT) s 
OUTPUT <S0RC,FRAMECXYP0S(13,71) 3 ,ATT) ; 

END; 

100: BEGIN C NON— SC ANNER SPACE CRAFT ADAPTER TEMP } 

RANALOG := EQU15 (ANALOG/51 . 0) ; 

STR (RANALOG: 5: 3, SORC) ; 

L I M I TCHECK ( RANALOG ,-10.0,0.0, 30 . 0 , 40 . 0 , SORC , ATT ) : 

OUTPUT (SORC, FRAME CXYF*OS( 35, 71) 3 , ATT ) ; 

END; 

107; BEGIN C SCANNER CHAN 13 PED FOOT TEMP } 

RANALOG := EQU1 5 (ANALOG/51 . 0) ; 

STR (RANALOG: 5: 3, SORC) ; 

L I M I TCHECK ( RANALOG ,-10.0,0.0,30. 0 , 40 . O , SORC , ATT ) ; 

OUTPUT ( SORC , FRAME C X YPOS (14,71)3, ATT ) ; 

END; 

108: BEGIN (NON— SCANNER CHAN 13 PED FOOT TEMP} 

RANALOG := EQU15 (ANALOG/51 . 0) ; 

STR ( RANALOG : 5 : 3 , SORC ) ; 

L I M I TCHECK ( RANALOG ,-15.0,-5.0,30. 0 , 40 . O , SORC , ATT ) ; 
OUTPUT (SORC, FRAME! XYPOS (36, 71) 3, ATT) ; 

END; 

116: BEGIN C SCANNER CHAN 1 ELECTRIC SLICE 3 TEMP } 

RANALOG := EQU14 (ANALOG/51 . 0) ; 

STR (RANALOG: 5: 3, SORC) ; 

L I M I TCHECK ( RANALOG ,-10. 0 , 0 . 0 , 50 . 0 ,55.0, SORC , ATT ) ; 

OUTPUT (SORC, FRAMECX YPOS <10, 71) 3 , ATT) ; 

END; 

117: BEGIN -C NON-SCANNER CHAN 14 ELEV DRIVE TEMP } 

RANALOG := EQU14 (ANALOG/51 . 0) ; 

STR (RANALOG: 5: 3, SORC) ; 

L I M I TCHECK ( RANALOG ,0.0,1 0 . 0 , 30 .0,40.0, SORC , ATT ) ; 

OUTPUT (SORC, FRAMECX YPOS (31 ,71) 3 , ATT) ; 

END; 

120: BEGIN [SCANNER CHAN 15 AZIMUTH DRIVE TEMP } 

RANALOG := EQU14 (ANALOG/51 . 0) ; 

STR < RANALOG : 5 : 3 , SORC ) ; 

L I M I TCHECK ( RANALOG ,-25.0,-15.0,40.0,45. 0 , SORC , ATT ) ; 
OUTPUT (SORC, FRAMECX YPOS (8, 71) 3, ATT) ; 

END; 
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918 124s BEGIN C NON-SCANNER CHAN 15 AZIMUTH DRIVE TEMP > 

919 RANALOG := EQU14 (ANALOG/51 . 0) ; 

920 STR < RANALOG : 5 : 3 , SORC ) ; 

921 L I M I TCHECK ( RANALOG ,-15.0,-5.0,40. 0 , 50 . 0 , SORC , ATT > ; 

922 OUTPUT (SORC, FRAME CXYPOS (32, 71) 3 , ATT) ; 

923 END; 

924 el_se i : = i ; 

925 END; -COF CASE > 

926 END; COF PROCESS ANALOG > 

928 FUNQIION SAREF (SAPOSL: BYTE )s ABC ; 

929 BEGIhj 

930 Eft§£ (SAPOSL AND 15) OF C CORRECTED 12/11/86 BY WLE > 

932 4: BEGIN 

933 SAREF := '0 WINDOW ' ; 

934 END; 

936 7: BEGIN 

937 SAREF : = '0 DEG ' ; 

938 END; 

940 8: BEGIN 

941 SAREF := '90 WINDOW ' ; 

942 END; 

944 1 1 : BEGIN 

945 SAREF : = '90 DEG ' ; 

946 END; 

948 12s BEGIN 

949 SAREF := '180 WINDOW'; 

950 END; 

952 15: BEGIN 

953 SAREF : = '180 DEG '; 

954 END; 

956 ELSE SAREF : = ' N/A '; 

958 END; -COF CASE > 

959 END; C OF SAREF FUNCTION > 


962 PROCEDURE ProcessScannerDIGA; 

963 C PROCESS DIGITAL 'B' DATA FOR BOTH SCANNER AND NONSCANNER > 

964 BEGIN 

965 CASE M I NORFR AMENUM MOD 40 OF 

967 0,12,24,36: BEGIN C OUTPUT SCANNER CHANNELS SW LW ?•< TOT> 

968 STR ( SSCH : 5 , SORC ) ; 
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969 

PUTOUT (SORC , FRAME C XYPOS (2 , 14) 3 , GREEN) ; 


970 

STR (SLCH: 5 ,SORC) : 


971 

PUTOUT ( SORC, FRAME C XYPOS <2, 34) 3 , GREEN) ; 


972 

STR ( STCH : 5 , SORC ) ; 


973 

PUTOUT < SORC , FRAME C X YPOS < 2 , 54)3, GREEN ) ; 


974 

STR ( SCPOS : 5 , SORC ) ; 


975 

PUTOUT < SORC , FR AME C X YFOS ( 1 2 , 1 4 ) 3 , GREEN ) ; 


977 

END; 


978 37: 

BEGIN 


979 

SSWCSA := EQU2 (SDIGAC 33 ) ; 


980 

STR ( SSWCSA s 5 : 3 , SORC ) ; 


981 

PUTOUT ( SORC , FRAME C X YPOS (9,11)3 , GREEN) ; 


982 

if. (mi nor-f ramenum<40) then C to account -for 

multiplex i ng 

983 

begin 


9e4 

IF < (SC ID = $0D) or (scid = *0E) ) JHEN 


985 

BEGIN { DAC LIMITS FOR NOAA-9 > 


986 

SSDACV := EQU3 ( SD 1 6 A C 0 3 ) ; 


987 

STR ( SSDACV : 5: 3 , SORC ) ; 


988 

L I M I TCHECK ( SSDACV , -0 . 7 , -0 . 2 , 0 . 8 , 1 . 3 

, SORC, ATT) ; 

989 

PUTOUT ( SORC , FRAME C X YPOS ( 3 , 1 1 ) 3 , ATT ) 

m 

n 

991 

SLDACV := EQU3 (SDIGAC 13); 


992 

STR ( SLDACV : 5 : 3 , SORC ) ; 


993 

LIMITCHECK (SLDACV, 0. 35,0. 85,1.85,2. 

35, SORC, ATT) ; 

994 

PUTOUT (SORC , FRAME C XYPOS (3,31) 3 , ATT ) 

q 

996 

STDACV := EQU3 (SDIGAC23 ) ; 


997 

STR ( STDACV : 5 : 3 , SORC ) ; 


998 

L I M I TCHECK ( STDACV ,-0.47,0. 03 ,1.03,1 

.53, SORC, ATT) 

999 

PUTOUT ( SORC , FRAME C X YPOS (3, 51)3, ATT) 

ji 

1 00 1 

END 


1002 

ELSE 


1 003 

BEGIN •[ DAC LIMITS FOR N0AA-10 > 


1004 

SSDACV := EQU3 (SDIGAC 03 ) ; 


1 005 

STR ( SSDACV : 5 : 3 , SORC ) ; 


1 006 

L I M I TCHECK ( SSDACV ,1.5, 1.5, 2. 5, 2. 5, SORC , ATT ) ; 

1007 

PUTOUT ( SORC , FRAME C XYPOS (3,11)3, ATT ) 

• 

1 009 

SLDACV := EQU3 (SDIGAC 1 3 ) ; 


1010 

STR ( SLDACV : 5 : 3 , SORC ) ; 


101 1 

L I M I TCHECK ( SLDACV , -0 . 20 , -0 .20,1.1,1 

. 1 , SORC, ATT) ; 

1012 

PUTOUT (SORC, FRAMEC XYPOS (3,31) 3 , ATT ) 

5 

1014 

STDACV := EQU3 (SDIGAC23 ) ; 


1015 

STR ( STDACV : 5 : 3 , SORC ) ; 


1016 

L I M I TCHECK ( STDACV , -0 . 40 , -0 . 40 , 0 . 60 , 

0.60, SORC, ATT: 

1017 

PUTOUT ( SORC , FRAME C XYPOS (3,51)3, ATT ) 

• 

5 

1018 

END; 
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1020 

1021 

1022 

1023 

1025 

1026 

1 027 

1 028 

1030 

1031 

1032 

1033 

1 035 

1 036 

1037 

1038 

1039 

1 040 

1042 

1043 

1044 

1045 

1 046 

1047 

1048 

1049 

1 050 

1051 

1 052 

1 053 

1 054 

1055 

1056 

1057 

1058 

1059 

1061 

1062 

1063 

1065 

1066 

1067 

1068 

1 069 

1070 


SSMBT : = EQU9 ( SD I BA L 5 3 ) ; 

STR (SSMBT : 5: 3 , SORC) ; 
LIMITCHECK (SSMBT , —200. ,-20. , 
PUTOUT ( SORC , FRAME Z X YPOS (6,11 

STMBT := EQU9 (SDIGAE73 ) ; 

STR (STMBT : 5: 3 , SORC) ; 

L I M I TCHECK < STMBT , -25 . 0 , -20 . 0 
PUTOUT ( SORC , FRAME C X YPOS (6,51 

SSMAMT := EQU9 (SDIGAC43 ) ; 

STR ( SSMAMT : 5 : 3 , SORC ) ; 

L I M I TCHECK ( SSMAMT ,-25.0,-15. 
PUTOUT ( SORC , FRAME C X YPOS ( 5 , 1 1 

STMAMT := EQU9 (SDIGAC63 ) ; 

STR ( STMAMT : 5 : 3 , SORC ) ; 

L I M I TCHECK ( STMAMT ,-25.0,-15. 
PUTOUT ( SORC , FRAME C X YPOS ( 5 , 5 1 
end ; 

END; ' 

38: BEGIN 

if (minorf ramenum <40> then 

begin 

IF ((SCID = $0D> OR (SCID = *0E) 

begin 

SDPBV := EQU4 (SDIGAE03 ) ; 

STR ( SDPBV : 5 : 3 , SORC ) ; 
LIMITCHECK (SDPBV, -200. 0,85. , 
PUTOUT ( SORC , FRAME Z X YPOS (10,3 
SDNBV := EQU4(SDIGAC13> ; 

STR ( SDNBV : 5: 3 , SORC ) ; 
LIMITCHECK (SDNBV, -200. ,-87. , 
PUTOUT ( SORC , FRAME C X YPOS (11,3 
STRV1 := EQU5 (SDIGAC23 ) ; 

STR (STR VI : 5: 3, SORC) ; 

L I M I TCHECK ( STRV 1 , -200 .,-6.8, 
PUTOUT ( SORC , FR AME C X YPOS < 7 , 3 1 
STRV2 := EQU6 (SDIGAE33 ) ; 

STR ( STR V2 : 5: 3 , SORC ) ; 
LIMITCHECK (STRV2,-200. ,-6.7, 
PUTOUT ( SORC , FRAME C X YPOS (8,31 


end 

else 

begin 

SDPBV := EQU4 ( SD I GA COD ; 

STR ( SDPBV : 5: 3 , SORC ) ; 

L I M I TCHECK ( SDPBV , -200 . 0 , 83 . 0 


35. ,200. , SORC, ATT) ; 
) I , ATT) ; 


, 35 . 0 , 50 . 0 , SORC , ATT ) ; 
) 3 , ATT) ; 


0,35. 0,45.0, SORC, ATT) 
) 3 , ATT) ; 


O , 35 . 0 , 45 . 0 , SORC , ATT ) 
) 3 , ATT) ; 


) IHEN 


87. ,200. , SORC, ATT) ; 
1 ) 3 , ATT ) ; 


-85. ,200. , SORC, ATT) ; 
1 ) 3 , ATT ) ; 


-6.4,200. , SORC, ATT) ; 
) 3 , ATT) ; 


-6.3,200. , SORC, ATT) ; 
) 3 , ATT ) ; 


, 85 . 0 , 200 . 0 , SORC , ATT ) 
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1 07 1 

1 072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1 080 


PL) TOUT (SORC, FRAME! XYPOS (10,31) 3, ATT) ; 

SDNBV := EQU4 < SD I GA C 1 3 ) ; 

STR ( SDNBV : 5: 3 , SORC ) ; 

L I M I TCHECK ( SDNBV , -200 . 0 , -86 . 5 , -84 - 5 , 200 . O , SORC , ATT ) ; 
F'UTOUT< SORC, FRAME CXYP0S(11 ,31) 3 , ATT ) ; 

STR VI := EQU5 ( SD I GA C 2 3 ) ; 

STR ( STRV 1:5:3, SORC ) ; 

L I M I TCHECK < STRV 1 , -200 . 0 , -7 . 45 , -6 . 90 , 200 . 0 , SORC , ATT ) ; 
PUTOUT (SORC, FRAME C XYPOS (7,31) 3, ATT) ; 

STRV2 := EQU6 ( SD I G A C 3 3 ) ; 


1082 

1083 

1084 

1085 

1 086 

1 087 

1088 

1089 

1 090 

1091 

1092 

1 093 

1094 

1095 

1 096 

1097 

1098 

1 099 

1100 39 : 

1101 
1 102 

1 103 

1 104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1 1 15 

1 116 

1117 

1 1 18 

1119 

1 1 20 
1 121 


STR ( STRV2 : 5 : 3 , SORC ) ; 

L I M I TCHECK ( STRV2 , -200 . 0 , -7 . 05 , - 6 . 50 , 200 . O , SORC , ATT ) 5 
PUTOUT(SORC,FR AMEC XYPOS (8,31) 3 , ATT ) 5 

END; 

SLBBT := EQUS <SDIBAC63*STRV2/ (- 6 . 4 ) ) 5 
STR (SLBBT : 5: 3 , SORC) ; 

L I M I TCHECK ( SLBBT , -25 .0,-15.0,45.0,55.0, SORC , ATT ) ; 
PUTOUT (SORC, FRAME C XYPOS (5,31) 3, ATT ) 5 
STBBT := EQU 8 <SDIGAC73*STRV2/ (- 6 . 4) ) ; 

STR ( STBBT : 5 : 3 , SORC ) ; 

L I M I TCHECK ( STBBT , -25 . 0 , - 1 5 . 0 , 45 . 0 , 55 . O , SORC , ATT ) ; 
PUTOUT (SORC, FRAME C XYPOS (7,51) 3 , ATT ) ; 

SSWCST := EGU9 (SDIGAC53) ; 

STR ( SSWCST : 5: 3 , SORC ) ; 

L I M I TCHECK ( SSWCST , -25 .0,-15. 0 , 35 . 0 , 45 . 0 , SORC , ATT ) ; 
PUTOUT ( SORC , FRAME C XYPOS (8,11)3, ATT ) ; 

end ; 

END? 

BEGIN 

if (minorf ramenum<40) then 
begin 

SSDETT := EQU7 (SDIGAC 1 3 ) 5 

STR ( SSDETT -.5:3, SORC ) ; 

L I M I TCHECK ( SSDETT ,37.0,37.5,38.5, 39 . 0 , SORC , ATT ) ; 
PUTOUT ( SORC, FR AMEC XYPOS ( 4, 11) 3, ATT) ; 

end ; 

If (mi norf ramenum=79) then 
begin 

SLDETT := EQU7 (SDIGAC23 ) ; 

STR ( SLDETT : 5 : 3 , SORC ) ; 

L I M I TCHECK ( SLDETT ,37.0,37.5,38.5,39.0, SORC , ATT ) ; 
PUTOUT ( SORC , FRAME C X YPOS (4,31)3, ATT ) ; 

STDETT := EQU7 (SDIGAC 33 ) ; 

STR ( STDETT : 5 : 3 , SORC ) ; 

L I M I TCHECK ( STDETT ,37.0,37.5,38.5,39. 0 , SORC , ATT ) ; 
PUTOUT < SORC , FRAME C XYPOS (4,51)3, ATT ) ; 

end ; 

SCMDE := SDIGAC 73 ; 

sore := heKdigCscmde shr 123 

+ hexdigC (sonde shr 8 ) and 153 
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1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1 1 30 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 


+ hexdigC (scmde shr 4) and 153 
+ hexdi gCscmde and 153 ; 

PUTOLJT (SORC, FRAME C XYPOS (14,11) 3 , GREEN) ; 
SSTAT := SDIGAC63 ; 

STR ( SST AT : 5 , SORC ) ; 

PUTOLJT (SORC, FRAME C XYPOS (16,11) 3 , GREEN) $ 
SAPOSL := SDIGAC53 ; 

SORC i- SAREF( SAPOSL ) 5 
SAPOSH := SDIGAC43 ; 

PUTOUT ( SORC, FRAME CXYF'QS ( 14,31 ) 3, GREEN) ; 
SAPOS s=((SAPOSH AND 255) SHL 4 ) 

OR ((SAPOSL AND 240) SHR 4) 5 
STR ( SAPOS : 6 , SORC ) ; 

PUTOUT ( SORC, FR AMEC XYPOS (15, 31) 3, GREEN) ; 
SAZP s= SAPOS * 0.075 ! 

STR (SAZF's 6 : 3, SORC) 8 

PUTOUT ( SORC, FRAME C XYPOS (16, 31) 3 , GREEN) ; 

END; 

el.se i := i 5 {do nothing } 

END; { OF CASE > 

END; C OF PROCEDURE PROCESSSCANNERDIGA > 


1145 FUNCII ON NEPOS(ND IGA s INTEGER) : ABC ; 

1146 { NONSCANNER ELEVATION POSITION} 


1148 

BEGIN 

1149 


CASE 

1151 

1 8 

BEGIN 

1 152 


NEF’OS 

1153 


END; 

1155 

98 

BEGIN 

1 156 


NEF'OS 

1157 


END; 

1 159 

*T • 

•- 1 ■ 

BEGIN 

1 1 60 


NEPOS 

1161 


END; 

1163 

Us 

BEGIN 

1164 


NEPOS 

1165 


END; 

1 167 

5s 

BEGIN 

1 168 


NEPOS 

1169 


END; 

1171 

138 

BEGIN 

1172 


NEPOS 


(NDIGA AND 15) OF 
:= '180 DEG ' ; 

s= '180 WINDOW' ; 

s — '78 DEG ' ; 

s= '78 WINDOW ' ; 

s = '0 DEG ' ; 

s= '0 WINDOW ' ; 
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1173 END; 

1175 ELSE NEPOS : = 'UNDEFINED ' ; 

1176 END; •£ OF CASE } 

1177 END; C OF NEPOS FUNCTION > 


1180 FUNCTION NAREF(NDIBAs INTEGER) ; ABC; •£ NONSCANNER AZIMUTH POSITION } 

1181 BEGIN 

1182 CASE (NDIGA AND 15) OF 

1184 4: BEGIN 

1185 NAREF i* '0 WINDOW 

1186 END; 

1187 7; BEGIN 

1188 NAREF := '0 DEG 

1189 END; 

1191 8: BEGIN 

1192 NAREF ;= '90 WINDOW '; 

1193 END; 

1195 Us BEGIN 

1196 NAREF : = '90 DEG '; 

1197 END; 

1199 12: BEGIN 

1200 NAREF := 'ISO WINDOW'; 

1201 END; 

1203 15: BEGIN 

1204 NAREF := '180 DEG '; 

1205 END; 

1 207 ELSE 

1208 NAREF := 'UNDEFINED ' ; 

1210 END; COF CASE > 

1211 END; -COF NAPOS FUNCTION} 


1214 PROCEDURE ProcessNanScannerD I GA ; C PROCESS NONSCANNER DIGITAL 'A' DATA} 

1215 VAR POSIT, NS: REAL; NPOSIT : INTEGER ; 

1216 BEGIN 

1217 CASE MinorFrameNum MOD 160 OF 

1218 •£ OVERALL PROCESS OCCURS TWICE EVERY MAJOR FRAME } 

3 . . 7 , 

11. . 15. 19. .23.27. .31 .35. .39.43. .47,51. .55,59. .63,67. .71 , 

75. . 79.83. .87.91. . 95.99. . 103.107. . 1 1 1 , 1 15. . 1 19 , 123. . 127 , 131 . . 135 , 

139. . 143.147. . 151 . 155. . 159. 


1220 

1221 
i nnn 

J. 
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1225 


BEGIN 

1226 



CASE MINORFRAMENUM MOD 8 OF 

1227 



3s BEGIN 

J. *£. j£.0 



STR ( NDIGA : 5 , SORC) ; CNMFTCH3 

1229 



PUTOUT (SORC , FRAME! XYF’OS (22 ,12) 3 , GREEN) ; 

1230 



END; 

1231 



4; BEGIN 

1232 



STR (NDIGA; 5, SORC) ; -CNMSCH3 

1233 



PUTOUT ( SORC , FRAME C X YPOS (22,32)3, GREEN ) ; 

1234 



END; 

1235 



5; BEGIN 

1236 



STR (NDIGA; 5, SORC ) ; CNWTCH3 

1237 



PUTOUT ( SORC , FRAME C X YPOS (22,52)3, GREEN ) ; 

1238 



END; 

1239 



6: BEGIN 

1 240 



STR (NDIGA: 5 , SORC) ; CNWSCH3 

1241 



PUTOUT (SORC, FRAMEC XYPOS <22, 71) 3 , GREEN) ; 

1242 



END; 

1243 



7: BEGIN 

1244 



STR (NDIGA: 5 , SORC) ; CNSMCH3 

1245 



PUTOUT ( SORC, FR AMEC XYPOS (29, 12) 3, GREEN) ; 

1246 



END; 

1247 



END; C OF INNER CASE > 

1248 


END; 


1249 

Os 

BEGIN 

1250 



SDRC := HEXDIGCNDIGA SHR 123 

1251 



+ HEXDIGC (NDIGA SHR 8) AND 153 

1252 



+ HEXDIGC (NDIGA SHR 4) AND 153 

1253 



+ HEXDIGCNDIGA AND 153 ; 

1254 


r 

\ 

STR ( NDIGA: 5, SORC ) ; 3 C COMMAND ECHO 3 

1255 



PUTOUT (SORC, FRAMEC XYPOS (36,52) 3 , GREEN) ; 

1256 


END; 


1257 

l! 

BEGIN 

1258 



STR (NDIGA: 5, SORC) ; t INSTRUMENT STATUS 3 

1259 



PUTOUT (SORC, FRAMEC XYPOS (37,52) 3 , GREEN) ; 

1260 


END; 


1261 

2: 

BEGIN 

1262 



SORC s= NEPDS (NDIGA) ; C NEF'OS 3 

1263 



PUTOUT (SORC, FRAMEC XYPOS (32,30) 3, GREEN) ; 

1264 


end; 


1265 

10,90: 

BEGIN 

1266 



SORC := NAREF (NDIGA) ; C NAREF 3 

1267 



PUTOUT (SORC, FRAMEC XYPOS (34, 30) 3, GREEN) ; 

1268 



NPOSIT := NDIGA SHR 4 ; 

1269 



STR (NF’OSIT : 5 ,SORC) ; 

1 270 



PUTOUT (SORC, FRAMECXYPOS (35,30) 3 , GREEN) ; C NAPOS 

1271 



POSIT: = NPOSIT * 0.075 ; 

1272 



STR ( POS I T : 1 0 : 3 , SORC ) ; t NADEG 

1273 



PUTOUT (SORC, FRAMEC XYPOS (36,30) 3 , GREEN) ; 

1274 


END; 
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1275 

18,98: 

BEGIN 

1276 


NS := EQU12FM (NDIGA) ; 

1277 


STR ( NS : 5 : 2 , SORC ) ; C NMFTHT 3 

1278 


L I MI TCHECK < NS , 1 0 . 0 , 20 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1279 


PUTOUT (SORC , FRAME! XYF'OS (25 ,12) 3 , ATT) ; 

1 280 


END; 

1282 

24,104: 

BEGIN 

1283 


NS := EQU13 (NDIGA) ; 

1284 


STR (NS: 6 : 4, SORC) ; C NSWCSA > 

1286 


PUTOUT ( SORC , FRAME C X YPOS <27,71)3, GREEN ) 5 

1287 


EN£| 

1288 

25,105: 

BEGIN 

1289 


NS := EQU1 1FM (NDIGA) 

1290 


STR < NS: 5: 2, SORC) ; l NSWCST > 

1291 


L_ I M I TCHECK < NS , 0. 0 , 1 0 . 0 , 30 . 0 , 40 . 0 , SORC , ATT ) ; 

1292 


PUTOUT < SORC, FRAME CX YPOS (26, 71 ) 3 , ATT) ; 

1293 


IND; 

1294 

26,106: 

BEGIN 

1295 


NS := EQU 1 2FM ( ND I GA ) ; 

1296 


STR (NS: 5: 2, SORC ) ; C NMFSHT 3- 

1297 


L I M I TCHECK < NS , 1 0 . 0 , 20 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1298 


PUTOUT < SORC , FRAME C X YPOS < 25 , 32) 3, ATT ) ; 

1299 


END; 

1301 

33,1 13: 

begin 

1 302 


NS := EQU 13 (NDIGA) ; 

1 303 


STR (NS: 6 : 4, SORC ) ; C NTREFV 3 

1304 


LIMITCHECK (NS, 4. 7,4. 9,5. 1 , 5. 3 , SORC , ATT ) ; 

1 V'UlJ 


PUTOUT < SORC, FRAME CX YPOS (38, 32) 3, ATT) ; 

1306 


END; 

1 308 

34,114: 

BEGIN 

1 309 


NS := EQU12FM (NDIGA) ; 

1310 


STR (NS: 5: 2, SORC ) ; C NWFTHT 3 

131 1 


L I M I TCHECK (NS , 10 . 0 , 20 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1312 


PUTOUT ( SORC, FRAME CX YPOS (25,52) 3, ATT) ; 

1313 


END; 

1315 

40: 

BEGIN 

1316 


NS := EQU1 1FM (NDIGA) ; 

1317 


STR (NS: 5: 2, SORC) ; C NMFTAT 3 

1318 


L I M I TCHECK ( NS , 1 0 . 0 , 20 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1319 


PUTOUT ( SORC, FRAME CX YPOS (24, 12) 3, ATT) ; 

1320 


END; 

1322 

41 : 

BEGIN 

1323 


NS := EQU11FM (NDIGA ) 5 

1324 


STR (NS: 5: 2, SORC) ; C NMFTLT 3 

1325 


L I M I TCHECK (NS , -10 . 0 , 0 . 0 , 40 . 0 , 50 . 0 , SORC, , ATT ) 5 
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1326 


PUTOUT (SORC , FRAME C XYF'QS (23 , 12 ) 3 , ATT ) ; 

1327 


ENfij 

1329 

42,122: 

BEGIN 

1 330 


NS := EQU 1 2FM ( ND I G A ) ; 

1331 


STR ( NS : 5 : 2 , SORC ) ; t NWFSHT > 

1 332 


L I M I TCHECK ( NS , 1 0 . 0 , 20 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) 

1333 


PUTOUT < SORC, FRAME CXYPOS( 25, 71) 3, ATT) ; 

1334 


IND; 

1336 

50,130: 

BEGIN 

1337 


NS «« EQU12FM (NDIGA) ; 

1338 


STR (NS: 5: 2, SORC) ; C NWFBBT > 

1339 


L I M I TCHECK < NS , 0 . 0 , 1 0 . 0 , 55 . 0 , 60 . 0 , SORC , ATT ) ; 

1 340 


PUTOUT ( SORC , FRAME C X YPOS (27,52)3, ATT ) ; 

1341 


END; 

1343 

58,138: 

BEGIN 

1344 


NS := EQU12FM (NDIGA) ; 

1345 


STR (NS: 5: 2, SORC) ; C NMFSPT > 

1346 


L I M I TCHECK ( NS , 0 . 0 , 1 0 . 0 , 30 . 0 , 40 . 0 , SORC , ATT ) ; 

1347 


PUTOUT (SORC, FRAMECX YPOS (26, 12) 3, ATT) ; 

1348 


END; 

1 350 

64: 

BEGIN 

1351 


NS := EQU1 1FM (NDIGA) ; 

1352 


STR (NS: 5: 2, SORC) ; C NMFSAT > 

1353 


L I M I TCHECK ( NS , 1 0 . 0 , 20 .0,40.0,50. 0 , SORC , ATT ) 

1354 


PUTOUT ( SORC, FRAME CX YPOS (24, 32) 3, ATT) ; 

1355 


END; 

1357 

65: 

BEGIN 

1358 


NS := EQUUFM (NDIGA) ; 

1359 


STR (NS: 5: 2, SORC) ; CNMFSLT > 

1 360 


L I M I TCHECK ( NS , - 1 0 . 0 , 0 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) 

1361 


PUTOUT ( SORC, FRAME CX YPOS (23,32) 3 , ATT) ; 

1362 


END; 

1364 

66 , 1 46 : 

BEGIN 

1365 


NS := EQU12FM (NDIGA) ; 

1366 


STR (NS: 5: 2, SORC) ; C NMFBBT > 

1367 


L I M I TCHECK ( NS , 0. 0 ,10. 0 , 55 . 0 , 60 . 0 , SORC , ATT ) ; 

1368 


PUTOUT ( SORC, FRAMECX YPOS (27, 12) 3, ATT) ; 

1369 


END; 

1 370 

73: 

BEGIN 

1371 


NS := EQU13 (NDIGA) ; 

1372 


STR (NS: 6:4, SORC) ; C NCHTRV > 

1373 


PUTOUT (SORC, FRAMECX YPOS (27, 32) 3, GREEN) ; 

1374 


END; 

1376 

74,154: 

begin 
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1377 



NS := EQU12FM (NDIGA) ; 

1378 



STR (NS: 5: 2 ,S0RC) ; CNWFSF'T > 

1379 



L I M I TCHECK ( NS , 0 .0,10. 0 , 30 . 0 , 40 . 0 , SORC , ATT ) ; 

1 380 



PUTOUT ( SORC , FRAME C X YPOS <26,52)3, ATT ) ; 

1381 


END; 


1383 

80: 

BEGIN 

1384 



NS := EQU11FM (NDIGA) ; 

1385 



STR (NS: 5: 2, SORC ) ; { NSMHT 3 

1386 



L I M I TCHECK ( NS , - 1 0 . 0 , 0 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1387 



PUTOUT (SORC, FRAME C X YPOS (29,32) 3, ATT) ; 

1388 


1ND; 


1 390 

81: 

BEGIN 


1391 



NS := EQU1 1FM (NDIGA) ; 

1392 



STR (NS: 5: 2, SORC) ; C NSMAT 3 

1393 



L I M I TCHECK ( NS , - 1 0 . 0 , 0 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1394 



PUTOUT ( SORC , FRAME C X YPOS ( 29 , 52 ) 3 , ATT ) ; 

1395 


END; 


1397 

82; 

BEGIN 


1398 



NS := EQU11FM (NDIGA) ; 

1399 



STR (NS: 5: 2, SORC ) ; C NSMBT 3 

1 400 



LIMITCHECK (NS , -10. 0 , 0. 0 , 40. 0 , 50. 0 , SORC , ATT) ; 

1 40 1 



PUTOUT (SORC, FRAME CX YPOS < 29, 71) 3, ATT) ; 

1 402 


END; 


1 404 

1 20 : 

BEGIN 


1405 



NS := EQLJ1 1FM (NDIGA) ; 

1406 



STR (NS: 5: 2, SORC ) ; CNWFTAT 3 

1 407 



L I M I TCHECK < NS , 1 0 . 0 , 20 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1 408 



PUTOUT ( SORC , FRAME C X YPOS < 24 , 52 > 3 , ATT ) ; 

1409 


END; 


1411 

121: 

BEGIN 


1412 



NS :- EQU1 1FM (NDIGA) ; 

1413 



STR (NS: 5: 2, SORC) ; -CNWFTLT3 

1414 



L I M I TCHECK ( NS , - 1 0 . 0 , 0 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1415 



PUTOUT (SORC, FRAME CX YPOS (23, 52) 3 , ATT) ; 

1416 


END; 


1418 

144: 

BEGIN 


1419 



NS := EQU1 1FM (NDIGA) ; 

1420 



STR (NS: 5: 2, SORC) ; C NWFSAT 3 

1421 



L I M I TCHECK ( NS , 1 0 . 0 , 20 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

1422 



PUTOUT ( SORC, FRAME CX YPOS (24,71) 3, ATT) ; 

1423 


END; 


1425 

145: 

BEGIN 


1426 



NS := EQUUFM (NDIGA) ; 

1427 



STR (NS: 5: 2 , SORC) ; •CNWFSLT 3 
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"?cp 


1428 

1429 

1430 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1 439 

1440 

1442 

1443 

1444 

1446 

1447 

1448 

1449 

1451 

1452 

1453 

1 454 

1456 

1457 

1458 

1459 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1469 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 


L I M I TCHECK ( NS ,-10. 0 , 0 . 0 , 40 . 0 , 50 . 0 , SQRC , ATT ) ; 
PUTOUKSORC, FRAMEC XVF'OS <23,71) I, ATT) ; 

end; 

153: BEGIN 

NS : = EQU1 lFM(NDIGA) ; 

STR (NS: 5: 2,S0RC) ; •£ NBEBT > 

L I M I TCHECK ( NS , - 1 O . 0 , 0 . O , 40 . 0 , 50 . 0 , SORC , ATT) ; 
F'UTOUT (SORC , FRAME C XVF'OS (26 , 32) 1 , ATT ) ; 

END; 

else i := i ; { do nothing } 

END; •£ OF CASE > 

END; £ OF ProcessNonScannerDIGA > 

BCQcedure stat; •£ STATUS OF ADCCP COMMUNICATIONS > 
begi_n 

case status of 


0: begin 

sore : = ' 

att :~ green; 
end ; 

1 : begin 

sore := 'protocol error ' ; 

att := red ; 
end ; 

2 : beglg 

sore := 'checksum error '; 
att := red ; 
egd ; 

3: begin 

sore := 'timeout error ' ; 

att : = red ; 
end ; 

else i := i ; [do nothing 3- 
end; C of case > 

put out (sore , f rameC;<ypos (44,2) 1 , att ) ; 


end ; 

ECOCgbure SCRDUMP (var i,j: integer) ; 

•£ 80 COLUMN BY 50 ROW SCREEN DUMP TO PRINTER > 
TYPE CHARBUFF = ARRAY CO. . 80001 OF CHAR ; 

VAR CFRAME: CHARBUFF ABSOLUTE *B800«*0000; 
PRFRAME: ARRAY C 0. . 40001 OF CHAR ; 

K ,1: INTEGER ; 

begi n 

IF ( I+J = 0) JHEN 
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1479 

1 480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1 500 

1501 

1 503 

1504 

1505 

1 506 

1507 

1 509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1528 

1529 


of: SOCC.PAS 


begin 

FOR K := 0 IQ 3939 DO 
BEGIN 

PRFRAME C K 3 := CFRAMECK*23; 

END; 

END; 

for 1 : = 0 to 4 do 
begin 

if < j<79> then 

WRITE <L.ST, PRFRAME [1*80 +j 3 ) else wr i tel n (1 st , PRFRAME [ 1*80+ j 3 ) ; 
js= j+ly 
end; 

if ( j >79 ) then 

begin 

j s =0; 

i : = i + 1 ; 

if ( i >45 ) t hen 

begin 

i := Oy 

statpr :=0; 

end ; 

end ; 

end ; 

QCQEsdure dump buff; 

•C THIS ROUTINE IS CALLED WHEN A CONTROL D IS HIT. IT WAS USED FOR 
DEBUGGING PURPOSES > 

var line : stringCBOI ; j , k , 1 : integer ; bit: byte ; 

begin 

for j ; = 0 to 4 do 
begin 
K := 0 ; 

for i : = 0 to 5 do 
begin 

line : = ' ' ; 

for 1 : = 0 to 19 do 

begin 

bit := mi riorf rameC j , k] ; 

line s= line + hexdigCbit shr 43 + hexdigCbit and $f 3 + ' 
k : = k + 1 ; 
end ; 

writeln(lst,line) ; 

egd ; 

wr i tel n (1st ) ; 

end ; 

statpr := 1 ; 

end ; 

PROCEDURE CLEARBUF ; C CLEAR THE M I NORFRAME BUFFER > 

VAR I, J: INTEGER ; 
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1530 

1531 

1532 

1533 

1534 

1535 

1536 


1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1 550 

1551 

1553 


1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1 566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1 580 


BEGIN 

FOR I := 0 TO 4 DO 
BEGIN 

FOR J:= 0 JO 103 DQ 
M I NORFRAliE C I , J 3 := 0 ; 

END; 

END; 


fiCQGLSdure eof f i le (segm,of f s: integer) ; 
var i ; integer ; 

•C this procedure positions a file to the eof. Turbo Pascal would not 
do this in the case of files with more than 32767 records. This 
routine simply moves the number of records contained in bytes 4 
through 7 in the file control block to the current record number 
bytes 44 through 47. > 

begin 

for i : = 4 to 7 do 

fc>eg io 

memwCsegm: of f s+i +403 : = memCsegm: of f s+i 3 ; 

end ; 

end; 

•C BEGINNING OF THE MAIN PROGRAM 


begin 

SCID : = 0 ; C INITIALIZE SPACE CRAFT ID'S > 

OLDSCID s= 0 ; i THESE TWO VARIABLES ARE USED TO DETECT A 
CHANGE IN SATELLITE ID, THUS ENABLING A CLEARING OF THE 
SCREEN FOR THE NEW SATELLITE BEING DISPLAYED > 

ESIPL := OFF ; t INITIALIZE SCANNER PULSE LOAD TO OFF > 
ASSIGN (F9 , N0AA9) ; 

RESET <F9) ; 

eof f i le (seg (F9) , of s <F9) ) ; 


ASSIGN (F10,N0AA10) ; 

RESET (F 10) ; 

EOFF I LE ( SEG < F 1 0 ) ,OFS(F10) ) ; 
ST0RINTC03 := SCRNINTC 03 ; 
STORINTC 1 3 := SCRNINTC 1 3 ; 
SCRNINTC 03 := OFS <F'RSTAT) ; 
SCRNINTC 13 := CSEG ; 
NEWSCREEN ; 

DISPLAYACRO ; 

STATPR := 0; linenum := 0; 


■C SAVE PRINT SCREEN VECTOR > 

■C PLACE NEW VECTOR TO OUR ROUTINE > 

•C SET UP 80 X 50 DISPLAY SCREEN } 

•C DISPLAY ACRONYMS ON SCREEN > 
charnum:= 0; 


regeat 

INITRCV ; 

ST AT; 

key := GETKEY ; 

i_f (key = 24 ) then status := 0 ; 
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1581 

1582 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1 600 
1601 
1 602 

1603 

1604 

1 605 

1606 

1607 

1 608 

1609 

1610 
1611 

1613 

1614 

1615 

1616 


HQti_L status = 0 ; -C WAITIN6 FOR ERROR = 0 > 

li I NORFR AMENUM := -1 ; 

REEP: GETBUF ; 

ST AT ; 

key := GETKEY ; 

i_f (key = 2 ) then goto stop ; C CONTROL B > 
i_f (key = 18 ) then displayacro ; C CONTROL R > 
i_f (key = 4 ) then dumpbuff ; ' C CONTROL D > 

IF (STATUS <> O ) IHEN 6QIQ REEP ; 

{ IF WE HAVE A BAD STATUS, THEN TRY AGAIN > 

IF (LENG « O ) IHEN GOJO REEP ! 
i IF WE HAVE NO DATA, TRY AGAIN > 

FOR MN : = 0 IQ 4 DO 

•C WE HAVE GOOD DATA, SO PROCESS 5 MINOR FRAMES > 

ilGIW 

DIVY (MN) ; -C EXTRACT USEFUL DATA FROM TIP MINOR FRAME MN > 
If (minorf ramenum >319) then goto bottom ; 

IF ((FORGO' 9') AND (FORG <> '10')) IHEN' GOTO BOTTOM ; 
F'rocessDigb ; 

F'rocessAnal og ; 

ProcessScannerDiga; 

F'rocessNonscannerDi ga; 

str (minorf ramenum: 5, sore) ; {DISPLAY MINOR FRAME NUMBER > 
put out (sore ,f ramelKypos (42 , 15) 3 , whi te) ; 
bottom: if statpr = 1 then serdump ( 1 i nenum , charnum) ; 

END; 

goto reep ; 

STOP: SCRNINTE03 := ST0RINTC03 ; 

[RESTORE NORMAL PRINT SCREEN VECTOR > 

SCRNINTC 1 3 := STORINTH 1 3 ; C DITTO > 

CLOSE (F9) ; C CLOSE NOAA-9 FILE 3- 
CLOSE (F10); i CLOSE N0AA-10 FILE > 

OLDSCREEN ; C CHANGE SCREEN MODE BACK TO NORMAL > 

END. C of socc disp program > 
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SCANCHK 


SCANCHK is designed to examine scan position data for NOAA-9 
and NOAA-IO data acquired by the SOCC monitoring program. 
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1 


1 PROGRAM SCANCHK ; 

2 {” 

3 SCANCHK is designed to examine scan position data for NQAA-9 and 

4 N0AA-10 data acquired by the SOCC monitoring program. 

6 written by: William L. Edmonds 

7 STX Corp. 


10 > 

11 LABEL. REEP , stop , bottom; 

12 IYPE ABC = iIBINGC803 s' 

13 IYPE BYTEBUFF ■ ARRA*C0. . 80003 OF BYTE ; 

14 TYPE integBUFF = ARRAYCO. . 40003 OF INTEGER ; 

15 IYPE BITE = ARRAY CO.. 80 3 OF BYTE ; 

16 IYPE Mi norFrameBuf f s = ArrayCO. . 103 3 of byte ; 

17 Type dualbuffs = ArrayCO.. 43 of Mi norFrameBuf fs ; 

18 IYPE Mi norFramewords = ArrayCO. . 51 3 OF INTEGER ; 

19 lype dual wordbuf f s = ArrayC0..43 of Mi norFRamewords ; 

20 IYPE ERBREC = ARRAYCO.. 21 3 OF BYTE ; C USED IN SAVING ERBE DATA TO DISK 

21 IYPE RE6PACK = RECORD 

22 ax , bx , cx ,dx , bp ,di , si ,ds,es, flags : integer ; 

23 END; 

24 TYPE COMBUFF = ARRAYCO. . 5193 OF BYTE ; 

25 type small bufw = array C O K > •— * 3 of integer ; 

26 TYPE COMBUFFW = ARRAYCO. . 2593 OF INTEGER ; 

27 CONST 

28 HEXDIG : ARRAYCO. . 153 OF CHAR = * 01 23456789ABCDEF ' ; 

29 ON : SIRINGC33 = ' ON ' ; 

30 OFF : SIRINGC33 = 'OFF' ; 


32 WHITE: INTEGER = 15 ; 

33 RED: INTEGER = 12 ; 

34 YELLOW : INTEGER = 14 ; 

35 GREEN : INTEGER = 10 ; 

36 msgrcv : byte = 2 ; 

37 xmtrcv : byte = 7 ; 

38 max sec : integer = 10 ; 

39 sync : byte = $32 ; 

40 bisync : integer = $220 ; 

41 noerr : integer = 0 ; 

42 ptlerr : integer = 1 ; 

43 cserr : integer = 2 ; 

44 timerr : integer = 3 ; 

45 idOmsg : array CO. . 33 of byte = ($32, $32,0, $8) ; 

46 idlmsg : array CO. . 3 3 of byte = ($"32,$32,0,$c) ; 

47 idmsln : integer = 4 ; 

48 VAR 

49 spacecount : integer ; 

50 Spacelook : integer; 
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51 Sample?, samplelO : integer ; 

52 Sample/! : integer ; 

53 Sampl e74 : integer ; 

54 days, hrs, mins sinteger ; mi 1 1 i secs , secs :real ; 

55 ESI PL : ABC ; 

56 ERBDAT : ERBREC ; C THIS ARRAY HOLDS ERBE DATA TO BE SAVED TO DISK > 

57 FL : FILE OF ERBREC ; 

58 key : integer ; 

59 state : byte ; 

60 SCID : BYTE 5 ’ C SCID SHOULD BE = HEX “D" > 

61 id : byte ; 

62 IDNUli : INTEGER ; 

63 msgid s* byte ; 

64 elpmirv s byte ; 

65 elpsec : byte ; 

67 RECPACK : REGPACK ; 

68 ah ,al ,ch ,cl ,dh : byte ; 

69 TIME : ARRAY CO. .53 OF BYTE ; 

70 MN : INTEGER ; 

71 status , count : integer ; 

72 1 inenum,charnum: integer ; 

73 Mi norFrameNUM : integer ; 

74 Ma jorFrameNUM : integer ; 

75 Digb : byte; 

76 scrnmode: array CO. .153 of byte ; 

77 SDIGA : ARRAY CO. .73 OF INTEGER ; 

78 ND IGA: INTEGER ; 

79 ANALOG : byte ; 

80 analogint ; integer ; 

81 RANALOG s REAL 5 

83 VALST : ABC ; 

84 L.ENG ; INTEGER ; 

85 RCVBUF : COMBUFF ABSOLLJIE $8F80: TOO 00 ; 

86 RCVBUFW : COMBUFFW ABSOLUIE T8F80: $0004 ; 

87 msgbuf : small bufw absolute T8F80: $0000 ; 

88 XMTBUF : COMBUFF ABSOLUIE $8F80: $0400 ; 

89 MinorFrame : dualbuffs absolute $7f80 : $0004 ; C 9800:0004 ; > 

90 MinorFrameW : dual wordbuf f s absolute $7f80 : $0004 ; C 9800:0004 ; > 

91 MINFW : COMBUFFW ABSOLUIE $7f80 : $0004 5 C 9800:0004 ; > 

92 FRAME: integBUFF ABSOLUTE $B800:$0000; 

93 BFRAME: BYTEBUFF ABSOLLJIE $B800:$0000; 

94 txt : text ; 

95 txtfile : stri.nqC103 ; 

96 SORC: ABC ; 

97 ATT, XY: INTEGER; I,K, J: INTEGER; 

98 SCRNINT : ARRAY CO. . 13 OF INTEGER ABSOLUIE $0000; $0014; 

99 STORINT : ARRAY CO. .13 OF INTEGER ; 

100 statpr : byte absolute $0050: $0000; 
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105 

106 
107 

ioe 

109 

110 
1 1 1 
112 

113 

114 

115 

1 16 

1 17 

118 

1 19 

120 
121 

•j 


127 

128 

129 

130 


135 

136 

137 

138 

139 

140 

141 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 


-scanner digital 
INTEGER; 


var i abl es — 


COUNTS ; 
REAL ; 


REAL 


TYPE COUNTS * 

var 

SSCH , SLCH , STCH 
SSWCSA , SSWCST 
SSDACV , SLDACV , STDACV 
SDF’BV , SDNBV : REAL ; 

STRV1 , STRV2 : REAL ; 

SSDETT , SLDETT , STDETT 
SLBBT , QTBBT i REAL ; 

SSMBT , STMBX : REAL ; 

SSMAliT , STMAMT : REAL 
SCMDE , SST AT , SCPOS : COUNTS ; 
SAPOSL , SAPOSH; BYTE ; I LOW & 


•C CHANNEL OUTPUT > 

SWICS AMP OUTPUT & TEMP ! 

•C DAC VOLTAGES 1 
•C POS & NEG DETECTOR BIAS VOLTAGES! 
TEMP REF VOLTAGES! 


REAL ; C DETECTOR TEMPS! 

■I BLACKBODY TEMPS 1 
•C MAM BAFFLE TEMPS ! 

•C MAM TEMPS ! 

COMMAND ECHO, STATUS, SCAN POSITION! 
HIGH AZIMUTH POSITION BYTES ! 


SAZP : REAL ; 
SAPOS : COUNTS ; 
TREE : REAL ; 


•C AZIMUTH POSITION 


^ TEMP REAL NUM 


-EXTERNALS- 


PBQCEDURE S5080( var i :byte>; EXJERNAL 'CQNO.COM'; 

PROCEDURE F’UTOUT (VAR SORC;ABC;VAR FRAME: INTEGER; ATTR: INTEGER) ; 
EXIERNAL ' PUTOUT . COM ' ; 

EUNCII ON PRSTAT : I NTEGER ; EXTERNAL ' PRSTAT . COM ' ; 


. c PROCEDURES S< FUNCTIONS > 

PROCEDURE OUTPUT (VAR SORC: ABC ; VAR FRAME : INTEGER ; ATTR : INTEGER ) 

VAR BLANKS ; ABC ; 

BEGIN 

•C BLANKS := ' ' ; 11 BLANKS > 

•C PUTOUT (BLANKS, FRAME , WHITE ) ; ! 

PUTOUT ( SORC , FRAME , ATTR ) ; 

END; 

function cntlb : integer ; 
begi_n 

wi_th recpack do 
beqi_n 

ah : = 6 ; 
al : = 0; 

ax ;= ah shl_ 8 + al ; 
dx := $ff ; 

i ntr ($21 , recpack ) ; 
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153 

154 

155 

156 

157 

158 end; 


wi_th recpack do 
begi.n 

al s= ax and $ff ; 

end; 

cntlb ;= al ; 


163 FUNCTION XYPOS (ROW, COL: INTE6ER ) : INTEBER ; 

164 BEGIN 

165 XYPOS s= ROW * 80 + COL; 

166 END; 

1^8 FUNCTION 0N0FF<DIGB, I .-BYTE) ; ABC ; 

169 BEGIN 

170 ONOFF := ON ; 

171 _IF ((DIGS AND I ) >0 > THEN ONOFF := OFF ; 

172 END; 


176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 


&CQCedUCIL NEWSCREEN ; 
BEGIN 

SCRNMODEC 03 := $71; 
SCRNMODEC 1 1 := $50; 
SCRNMODEC 23 s= $5A; 
SCRNMODEC 33 := $0F; 
SCRNMODEC 43 := $1B; 
SCRNMODEC 53 := 6; 
SCRNMODEC63 s = $19; 
SCRNMODEC73 := $1A; 
SCRNMODEC 83 s= 3; 
SCRNMODEC93 := 7; 
SCRNMODEC 103 ;= $20 ; 
SCRNMODEC 113 := $20 ; 
SCRNMODEC 123 := O; 
SCRNMODEC 133 := 0; 
SCRNMODEC 143 := 0; 
SCRNMODEC 153 ;= 0; 
S5080 ( SCRNMODE C 0 3 > ; 
PORTC$3D83 := $19 ; 
P0RTC$3E03 := $18 ; 
P0RTC$3D93 := O ; 


200 END; 

202 PROCEDURE OL.DSCREEN ; 

203 VAR LOG ; INTEGER ; 
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BEGIN 

FOR LOC : = 0 IQ 3999 DO 
FRAME CLOG 3 : = *F00 ; 

SCRNMODEC43 : = *1F 5 
SCRNMODEC73 : = *1C ? 
SCRNMQDEC83 := 2; 
SCRNMODE C 1 0 3 := 6; 
SCRNMODE C 113 5= 7; 

85080 < SCRNMODE CO 3 ) ; 

END; 


PROCEDURE DisplayTime; 

VAR TIMSTRING ; ABC ; 

BEGIN 

days ;= <timeC03shl. 1) + < (timed 3 and 128)shr 7) 5 

millisecs := ((( timeC13and 7) *256.0 + timeC23 ) *256. 0 + t i meC33 ) *256. C 

hrs : = trunc (mi 1 1 i secs/3600000. 0) ; 

mins : = trunc (mi 1 1 i secs/60000. 0) mod 60 ; 

secs trunc ( (mi 1 1 i secs/1000. 0) -mi ns*60. 0-~hrs*3600. 0) ; 

str (days: 4 , sore ) ; put out (sore , f rameCxypos (42,40) 3 , whi te) ; 

str (hrs: 2 , sore ) ; put out (sore , f rameCxypos (42,45) 3 , whi te ) 5 

str (mi ns: 2, sore ) 5 put out (sore , f rameCxypos (42,50) 3 , whi te) ; 

str (secs: 6:3, sore ) ; put out (sore , -f rameCxypos (42,55) 3 , white); 

END; 


PROCEDURE DIVY ; C reads TIP MINOR FRAME data -from disk} 

LABEL RETURN 5 

var nextmf ,tipstatus: integer ; nm-f,m-f: stri.ng[43 ; 

BEGIN 

READ ( FL , ERBDAT ) ; 

nextmf := mi norf ramenum +1 ; 

if (nextm-f > 319 ) then nextm-f := 0 ; 

M I NORFRAMENUM := ERBDAT [ 1 3 + (ERBDAT CO 3 AND 1 > shl. 85 
if (minorf ramenum< >nextmf ) then 


begin 

str (nextmf : 4,nmf ) ; 

str (minorf ramenum : 4, mf ) ; 

sore := 'expecting mf ' + nmf + ' but found mf ' + 

put out (sore , f rameCxypos (45,2) 3 , yel 1 ow) ; 

end ; 

if (mi norf ramenum = 0 ) then 

begin 

sore : = ' j 

putout ( sore , f rameCxypos ( 45 , 2) 3 , yellow) ; 

FOR I := 0 IQ 4 DO 


mf ; 
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255 T I ME C I 3 := ERBDATC 1+2 3 ; 

256 displaytime; 

END; 

DIGB := ERBDATC 63 ; 

ANALOG ;= ERBDATC 7 3 5 
analogint ;= analog ; 

NDIGA := (ERBDATC 143 shl 8 ) or ERBDATC 153 ; 

SDIGAC03 := (ERBDATC 83 shl 8 or ERBDATC 93 > SHR 4 ; 
SDIGAC13 := ( ( (ERBDATC93 AND 15) SHL 8 ) OR ERBDATC 103 ) ; 
SDIGAC23 : = (ERBDATC 113 SHL 4) OR ( ERBDATC 123 SHR 4) ; 
SDIGAC33 := ((ERBDATC 123 and 15) shl 8 or ERBDATC 133 ) ; 
SDIGAC43 := (ERBDATC 163 shl 8 or ERBDATC 173 ) SHR 4; 
SDIGAC53 := (< (ERBDATC 17 3 AND 15 > SHL 8) OR ERBDATC 183 ) ; 
SDIGAC63 ;= (ERBDATC 193 SHL 4) OR (ERBDATC 20 3 SHR 4 ) ; 

SDIGAC73 :=(( ERBDATC 20 3 and 15) shl 8 or ERBDATC 21 3 ) ; 

ssch := sdigaC03 ; 
slch ;= sdigaC13 ; 
stch sdigaC23 ; 
scpos := sdigaC33 ; 

RETURN: 

END; C OF DIVY 3 


PcSEedyCi; ScanPos ; 

Begin 

Case Mi norf ramenura mod 40 of 

0,1,2 ; begin 

Calculate sum of space look data. 

Spacelook := Spacelook + SdigaC33 + SdigaC73 ; 
spacecount ;= spacecount + 2 ; 
end ; 
begin 

Complete the sum of space look data and calculate average. 


Spacelook ;= Spacelook + SdigaC33 + SdiqaC73; 
spacecount := spacecount + 2 ; 

Spacelook := Spacelook diy 8 ; 

sore := 'SPACE output (sore , f rameCxypos ( 17 , 2) 3 , whi te) ; 

str (spacelook; 5, sore) ; output (sore ,f rameCxypos (17,11)3 , green) ; 
end; 

4 : begi.0 

jr 

K. 

Get first and second Earth scan positions. 
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SCANCHK . PAS 

307 

y 


308 


Sample9 := SdigaC33 ; samplelO := 

309 


sore : = 'Sample 9 ' ; output (sore ,-f 

310 


str (sample9: 5, sore) ; output (sore ,-f 

311 


egd ; 

313 

35: 

begin 

314 

•C 


315 


Get first internal cal position. 

317 

■v 

J 


318 


Sampl e7 1 s« SdigaC33 ; 

319 


sore »= 'Sample 71 ' ; output (sore. 

320 


str (sample71 :5, sore) ; output (sore, 

321 


end ; 

323 

36: 

begin 

324 

r 


7ntr 

•«HM* it? II W 


Get 4th internal cal position. 

327 

•v 

j 


328 


Sampl e74 s— SdigaC73 ; 

t ( 29 


sore s= 'Sample 74 ' ; output (sore, 

330 


str (sampl e74: 5 , sore ) ; output (sore,- 

331 


wri teln ( 1 st ,days: 5, hr s: 5, mi ns: 3, sec 

332 


spacelook: 10,sample9: 10, samplelO: 10 

777 


spacelook : = 0 ; 

334 


spacecount : = 0 ; 

335 


end ; 

336 

else 

begin (§nd; 

337 

end ; 

•C of case > 

338 

end 5 

•C of procedure > 


sdi gat73 


Frametxypos (17,41) 3, white) 
Frame C Hypos (17,51) 3 , green ) 


344 PROCEDURE DISPLAYACRO ; 

345 VAR Is INTEGER; 

346 BEGIN 

347 txtfile := 'sorc.txt' ; 

348 assign (txt , txtfi le) ; 

349 reset (txt) ; 

350 att := 15 ; 

351 i : = 80 ; 

352 whil^e not eof(txt) do 

353 begin 

354 readln (txt ,sorc) ; 

355 sore : = sore + ' 

356 putout (sore , frame C i 3 , att ) ; 
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357 i := i + 80 ; 

358 end ; 

359 close (txt); 

361 END; 

362 firoced ure for ward jump ; 

363 var ipos : integer ; 

364 begin 

365 ipos := filepos(fl) ; 

366 ipos : = ipos + 100 ; 

367 seek (f 1 , i pos) ; 

369 end ; 


372 l BEGINNING OF THE MAIN PROGRAM 


376 BEGIN 

377 ESIPL := 'OFF' ; 

378 WRITELN ( ' ENTER SPACE CRAFT ID (9 OR 10) '); 

379 READLN ( IDNUM) ; 

380 IF IDNUM = 9 fHEN ASSIGN (FL, 'N0AA9. DAT ' ) 

381 ELSE ASSIGN (FL, 'N0AA10.DAT' ) ; 

382 RESET (FL); 

383 STORINTCOD := SCRNINTEOl ; •£ SAVE PRINT SCREEN VECTOR > 

384 STORINTE 1 1 := SCRNINTE13 ; 

385 SCRNINTEOD := OFS (PR5TAT) ; -C PLACE NEW VECTOR TO OUR ROUTINE > 

386 SCRNINTE 1 3 := CSEG ; 

387 NEWSCREEN ; •£ SET UP 80 X 50 DISPLAY SCREEN > 

388 DISPLAYACRO ; C DISPLAY ACRONYMS ON SCREEN )■ 

389 STATF’R := O; linenum := 0; charnum:= 0; 

390 spacecaunt := 0 ; 

391 spacelook s= 0 ; 

392 M I NORFRAMENUM := -1 ; 

393 WRITELN (LST, ' SCAN CHECK FOR NOAA- ' , IDNUMs 2) ; 

394 repeat 

396 REEP: 


398 


key cntlb 

m 

9 


399 


if (key = 2 ) 

then 

goto stop ; 

400 


i,f (key ~ 18 

) then 

displayacro ; 

401 

*c 

if (key = 6 

) then 

forwardjump ; > 

402 


if (key = 11 

) tjnen 


403 


begin 



404 


repeat 



405 


key := cntlb ; 

406 


Li 

key = 

^ then goto reap 

407 


until key = 11 

5 
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408 rewrite(fl) ; 

409 goto stop ; 

410 end; 

411 if <key = 16 ) then 

412 repeat 

413 key := cntlb ; 

414 y.Qfe.i_l_ key = 7 ; 


418 DIVY ; C EXTRACT USEFUL DATA FROM TIP MINOR FRAME MN > 

419 if (minorf ramenum >319) then goto bottom ; 

421 -C Process scan position data > 

422 Scanpos ; 

424 C Output minorframe number > 

425 str (minorf ramenum: 5, sore) ; 

426 putout (sore ,f rameCxypos (42, 15) 3 , white) ; 

427 bottom: 

429 uotil eof(fl) ; 

430 STOP: SCRNINTC03 := ST0RINTC03 ; 

431 SCRNINTC 1 3 := STORINTC 1 3 j 

432 CLOSE (FL); 

433 OLDSCREEN ; 

434 END. -C of socc disp program J 
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APPENDIX C - ESMCAL 


ESMCAL (ERBS scanner mam calibration program) is used to 
determine the stability of the scanner detectors during solar 
transit. Sensor and temperature data are tabulated by this 
program and plots of the short wave and total channels are 
generated for the complete solar calibration time span. From 
this data, a time history was established to determine the 
stability of the detectors. 


C-l 


PURPOSE : ESMCAL IS THE SHORTWAVE CHECK ONE 

STABILITY OF THE TOTAL AND SHORTWAVE ERBS 
SCANNER CHANNEL DURING A SOLAR CALIBRATION 
ESMCAL IS ERBS SCANNER MAM CALIBRATION PROGRAM. 

THIS GETS THE SOLAR CAL DATA FOR ALL THE THREE 
RADIOMETRIC CHANNELS DURING A SOLAR TRANSIT. 

THIS BETS A TABULATED FORM OF PRINT OUT OF THE 
SENSORS DATA AND A TABULATED FORM OF TEMPERATURE 
IN ENGINEERING UNITS. ALSO GETS 2 PLOTS OF SSCH, 

STCH FOR THE WHOLE PERIOD DURING A SOLAR CALIBRATION. 
FROM THIS DATA, TIME HISTORY WAS DONE TO SEE 
IF THE RESPONSE OF THE DETECTORS WERE CONSTANT 
OR CHANGING 


LANGUAGE : FORTRAN-5 


PROCEDURE: TYPE : 

-ERBS , ESMCALJ , D I SKF , SMMARY 

. PROC , ERBS , D I SKF , SMMARY , F I L=#DAT A . 

REFORM, FI L. 

ROUTE , SCR , DC= I N , ST=RHA . 

REVERT. ESMC APR 
.DATA. 

/JOB 

COMND , T2000 , CM77200 . 

/USER 
/CHARGE 
GET, USER I. 

DELIVER. BIN15SU NATARAJAN 
GET , T APE 1 =D I SKF . 

REWIND,TAPE1 . 

ATTACH , LARCGOS / UN=L I BR AR Y , NA . 

GET , CABL I B5/UN=UT I L . 

GET, ESMCAL. 

FTN5, I=ESMCAL. 

LDSET , LIB=CABLIB5. 

LDSET , L I B=LARCGOS , PRESET A=NG I NF . 

LGO. 

REWIND, T APE 1 1 . 

REPLACE , TAPE 1 1 =SMM ARY . 

ROUTE , TAPE 1 1 , DC=LP . 

REPLACE , SAVPLT . 

PLOT . CALPOST , 1 1 ( PAGE= 1 9 , XM= . 7 , FSH= 1 9 ) 

CONT.//600A PERFORATED S.5 X 11 ROLL PAPER 

CONT. BLANK PAPER BLACK INK GREEN INK RED INK 

CQNT.PEN 1 - BLACK LEROY 3 

CONT. PEN 2 - GREEN LEROY 3 

CONT. PEN 3 - RED LEROY 3 

CONT. PLEASE FOLD THESE PLOTS// 

D AYF I LE , ERBSOK . 

REPLACE, ERBSOK. 

EXIT. 

DA YF I LE , ERBSER . 

REPLACE , ERBSER . 
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APPENDIX D - SOLCA 


SOLCA determines the solar constant values for the EV 
channels and SMA channel. The solar constant values from EV 
channels are compared to SMA once every 2 weeks in order to 
calibrate/validate earth viewing channels. 
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FUNCTION s SQLCA GETS THE SOLAR CONSTANT VALUES BY THE EV 

CHANNELS AND SMA CHANNEL. SNA ARE USED AS STANDARDS. 

THE SOLAR CONSTANT VALUES FROM EV CHANNELS ARE COMPARED 
TO SMA ONCE EVERY 2 WEEKS IN ORDER TO CALIBRATE/VALIDATE 
EARTH VIEWING CHANNELS. 

LANGUAGE s FORTRAN-5 


PROCEDURE: TYPE: 

-NSCAN , NSCF'ROC 

. F'ROC , NSCAN . 

NOTE. /THIS IS NONSCANNER PROCEDURE TO GET SOLAR SUMMARY/ 
GET , SOLCA. 

FTN5 , I --SQLCA , L=LF . 

GET,TAPE1=NDATA. 

GET , T AF'E2=TERBS . 

GET , TAPE3=N 1 OD AT A . 

LGO. 

NOTE. /TO GET A PRINTED OUTPUT OF SOLAR-CAL SUMMARY/ 

NOTE. /ROUTE, TAPE4,DC=LP (FOR NOAA-9 SUMMARY )/ 

NOTE. /ROUTE, TAPE5,DC=LP. (FOR ERBS SUMMARY)/ 

NOTE. /ROUTE, TAPE7,DC=LP. (FOR NOAA-1G SUMMARY)/ 

REVERT. NSCAN. 
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